home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / s / studio_print / studioprintii1.dms / studioprintii1.adf / Install-Studio < prev    next >
Text File  |  1994-10-03  |  66KB  |  2,388 lines
  1. ; $VER: Studio 2.00 (01.11.94)
  2. ; Copyright (C)1992-94 Wolf Faust
  3.  
  4. (complete 0)
  5. (delopts "oknodelete" "force" "askuser")
  6.  
  7. ;**** English text
  8. ;--------------
  9. (set #welcome
  10. (cat "\nIntermediate: printer drivers get installed on the used system disk.\n"
  11.     "Expert:  may install printer drivers on any wanted disks.\n\n"
  12. ))
  13. (set #welcome-pirate
  14. (cat "\nWelcome to the Studio Printer Software.\n\n"
  15.     "Studio is Copyright (C)1992-94 by Wolf Faust\n"
  16.     "This software is NOT public domain, shareware, freeware...\n\n\n"
  17.     "Please, spread the word and do not copy."
  18. ))
  19. ;--------------
  20. (set #waitmsg
  21. (cat "\n\n\n\nWorking. Please wait..."
  22. ))
  23. ;--------------
  24. (set #bad-kick
  25. (cat    "\nYour system software is very old. "
  26.     "You must use at least Kickstart 2.04 for all Studio programs. "
  27. ))
  28. ;--------------
  29. (set #diskbased
  30. (cat "What kind of system disk are you using?"
  31. ))
  32. (set #diskbased-choices1
  33. (cat "Hard disk or similar mass storage device"
  34. ))
  35. (set #diskbased-choices2
  36. (cat "Two or more floppy drives - No hard disk."
  37. ))
  38. (set #diskbased-choices3
  39. (cat "A single floppy drive     - No hard disk."
  40. ))
  41. (set #diskbased-help
  42. (cat "\nStudio requires more disk space than available "
  43.     "on a single floppy. The installation will help users of floppy "
  44.     "systems getting enough disk space in order to install Studio.\n\n"
  45.     @askoptions-help
  46. ))
  47. ;--------------
  48. (set #w-studio
  49. (cat "Select the action(s) to perform."
  50. ))
  51. (set #w-studio-help
  52. (cat "\nStudio is devided in two independent parts: "
  53.     "printer driver and Studio print program. "
  54.     "You can now select wich parts should be un- or installed.\n\n".
  55.     @askoptions-help
  56. ))
  57. (set #w-studio-choices1
  58. (cat "Uninstall Canon, Studio V1 and V2 drivers"
  59. ))
  60. (set #w-studio-choices2
  61. (cat "Install printer driver"
  62. ))
  63. (set #w-studio-choices3
  64. (cat "Install Studio application program"
  65. ))
  66. (set #w-studio-choices4
  67. (cat "Install Studio application output module"
  68. ))
  69. (set #w-studio-choices5
  70. (cat "Install Studio application printer profiles"
  71. ))
  72. (set #w-studio-choices6
  73. (cat "Define default settings of Studio"
  74. ))
  75. ;--------------
  76. (set #abortnochoice
  77. (cat "You didn't select an action to perform. Start installation again and select an action to perform."
  78. ))
  79. ;--------------
  80. (set #format
  81. (cat "\nYou need %ld empty floppy disk(s) in order to install the requested software. "
  82.     "Generate the empty floppy disk(s) by using the 'Format Disk...' Workbench "
  83.     "menu item.\n\nPlease assign name(s) to the disk(s) that help you identifying them during later use. "
  84.     "For instance use \"Studio_Prefs\" for the driver or \"Studio_Print\" for the "
  85.     "the application program disk. "
  86. ))
  87. ;--------------
  88. (set #abortunpack
  89. (cat "\nError occured while running the installation decompression program. "
  90.     "The error occured during decompressing of the file:\n\n\"%s\"\n\n"
  91. ))
  92. ;--------------
  93. (set #cfm-delete
  94. (cat "\n\n              Warning\n\n"
  95.     "Make a backup of your system disk before deleting files.\n"
  96.     "Don't forget to select a new printer driver after deleting the old one.\n"
  97.     "Shall I really delete all Canon & Studio printer drivers now?\n"
  98. ))
  99. (set #cfm-delete-help
  100. (cat "\nIt seems you have allready installed a Studio or Canon printer driver. "
  101.     "You may delete the settings made for the previous driver before "
  102.     "installing a new driver.\n\n"
  103. ))
  104. (set #cfm-delete-1
  105. (cat "Yes, delete."
  106. ))
  107. (set #cfm-delete-2
  108. (cat "No, continue"
  109. ))
  110. ;--------------
  111. (set #ask-sys
  112. (cat "\nIn which disk or drawer should the Studio printer driver be installed?"
  113. ))
  114. (set #ask-sys-help
  115. (cat "\nThis section lets you choose in which drawer or on which disk the "
  116.     "Studio printer driver should be installed. "
  117.     "The driver should normally go into the \"Printers:\" or \"devs:printers\" directory "
  118.     "of your system disk.\n\n"
  119.     @askdir-help
  120. ))
  121. ;--------------
  122. (set #w-emul
  123. (cat "What's your printers emulation?"
  124. ))
  125. (set #w-emul-help
  126. (cat "\nStudio includes several printer drivers for various "
  127.     "printer emulations. "
  128.     "Have a look into your printers user manual for "
  129.     "finding the emulation supported by your printer.\n\n"
  130.     "NOTE: often printers support more than one emulation. "
  131.     "You may have to try several emulations to find the one "
  132.     "fitting your needs best.\n\n"
  133.     @askchoice-help
  134. ))
  135. (set #w-emul-choices0
  136. (cat "Dot-Matrix: Epson, Nec, Star, Brother"
  137. ))
  138. (set #w-emul-choices1
  139. (cat "Dot-Matrix: Fujitsu, Panasonic, Citizen"
  140. ))
  141. (set #w-emul-choices2
  142. (cat "Epson ESC/P2 compatible (Stylus, ...)"
  143. ))
  144. (set #w-emul-choices3
  145. (cat "Canon BJ and BJC, Brother HJ 100"
  146. ))
  147. (set #w-emul-choices4
  148. (cat "Deskjet: Portable, 310, 500, 510, 520"
  149. ))
  150. (set #w-emul-choices5
  151. (cat "Deskjet: 500C, 1200, Painjet 300XL"
  152. ))
  153. (set #w-emul-choices6
  154. (cat "Deskjet 550C, 560C and compatible"
  155. ))
  156. (set #w-emul-choices7
  157. (cat "HP LaserJet / PCL compatible"
  158. ))
  159. ;--------------
  160. (set #w-color
  161. (cat "What kind of printer do you have?"
  162. ))
  163. (set #w-color-help
  164. (cat "\nStudio printer drivers allow you to print up to 256 greyshades "
  165.     "simulating a color printer. In order to enable this feature, you have "
  166.     "to choose between color or 256 greyshades.\n"
  167.     "You should select the kind of printer you have as default. "
  168.     "You may alter the setting anytime using the Studio preferences program.\n\n"
  169.     @askchoice-help
  170. ))
  171. (set #w-color-choice1
  172. (cat "Colour"
  173. ))
  174. (set #w-color-choice2
  175. (cat "Black and white"
  176. ))
  177. ;--------------
  178. (set #w-driver
  179. (cat "What's your printers emulation/brand?"
  180. ))
  181. (set #w-driver-help
  182. (cat "\nStudio includes several printer drivers for various "
  183.     "printer emulations. "
  184.     "Have a look into your printers user manual for "
  185.     "finding the emulation supported by your printer.\n\n"
  186.     "NOTE: often printers support more than one emulation. "
  187.     "You may have to try several emulations to find the one "
  188.     "fitting your needs best.\n\n"
  189.     @askchoice-help
  190. ))
  191. (set #w-driver-laserhelp
  192. (cat "\nThere are several kinds of Laserjet emulations available. "
  193.     "This window helps you finding a good setup for your printer, "
  194.     "though, you most likely have to \"fine tune\" the settings. \n\n"
  195.     @askchoice-help
  196. ))
  197. ;--------------
  198. (set #w-ink
  199. (cat "What kind of printer do you have?"
  200. ))
  201. (set #w-ink-help
  202. (cat @askchoice-help
  203. ))
  204. (set #w-ink-choice1
  205. (cat "Inkjet printer"
  206. ))
  207. (set #w-ink-choice2
  208. (cat "Pin printer"
  209. ))
  210. ;--------------
  211. (set #ask-prefs
  212. (cat "\nIn which disk or drawer should the printer preferences program(s) be installed?"
  213. ))
  214. (set #ask-prefsdisk
  215. (cat "\nSelect the %ld. empty disk."
  216. ))
  217. (set #ask-prefs-help
  218. (cat "\nThis section lets you choose in which drawer or on which disk the "
  219.     "Studio printer driver preferences program should be installed. "
  220.     "These should normally go into the \"sys:prefs\" directory of your system "
  221.     "disk.\n\n"
  222.     @askdir-help
  223. ))
  224. ;--------------
  225. (set #pin2note
  226. (cat "\nWarning: Don't use density 2 or 7 with a printer offering a max. print resolution of 360 dpi.\n\n"
  227. ))
  228. ;--------------
  229. (set #yellspace
  230. (cat "\nThis installation requires >%ld bytes free on the disk \"%s\". "
  231.     "You may now delete unnecessary files using Workbench or Shell. "
  232.     "This installation script can also delete files now in order to free space. "
  233.     "You will be asked for permission before deleting each file.\n\n"
  234.     "DO MAKE A BACKUP OF YOUR SYSTEM DISKS BEFORE DELETING FILES.\n\n"
  235. ))
  236. ;--------------
  237. (set #tdel0 "Utilities/Clock")
  238. (set #tdel1 "Devs/Printers/Generic")
  239. (set #tdel2 "C/SetFont")
  240. (set #tdel3 "C/Edit")
  241. (set #tdel4 "C/Eval")
  242. (set #tdel5 "C/DiskChange")
  243. (set #tdel6 "C/FileNote")
  244. (set #tdel7 "C/Lock")
  245. (set #tdel8 "C/Search")
  246. (set #tdel9 "C/Sort")
  247. (set #tdel10 "C/MagTape")
  248. (set #tdel11 "C/MakeLink")
  249. (set #tdel12 "C/RemRad")
  250. (set #tdel13 "C/Which")
  251. (set #tdel14 "C/ChangeTaskPri")
  252. (set #tdel15 "C/Join")
  253. (set #tdel16 "System/NoFastMem")
  254.  
  255. (set #del0 "Displays the system time")
  256. (set #del1 "A generic text printer driver")
  257. (set #del2 "Defines system font")
  258. (set #del3 "Edit is a line editor")
  259. (set #del4 "Evaluate math expressions")
  260. (set #del5 "Recognize a diskchange")
  261. (set #del6 "Add/Remove filenotes")
  262. (set #del7 "Lock files from deletion")
  263. (set #del8 "Search a file")
  264. (set #del9 "Sort a file")
  265. (set #del10 "Controls tape backup devices")
  266. (set #del11 "Make a disk link")
  267. (set #del12 "Remove recoverable ram drive")
  268. (set #del13 "Shows location of cmd file")
  269. (set #del14 "Changes task priority")
  270. (set #del15 "Joins/Merges files")
  271. (set #del16 "Disables any fast memory")
  272. ;--------------
  273. (set #full-delete
  274. (cat "\nCan I delete the file '%s'?\n\n"
  275.     "The functionality of this program:\n\n"
  276.     "%s"
  277. ))
  278. (set #full-delete-help
  279. (cat "\nYour system disk doesn't offer the disk space required for "
  280.     "installing the printer driver. The installation program "
  281.     "can now delete files from your system disk that are often unused. "
  282.     "If you need one of the programs, you might skip deletion. "
  283.     "However, skiping might result in the installation to fail "
  284.     "if not enough disk space could be freed. "
  285. ))
  286. (set #full-delete-1
  287. (cat "Yes, delete."
  288. ))
  289. (set #full-delete-2
  290. (cat "No, continue"
  291. ))
  292. ;--------------
  293. (set #tofull
  294. (cat "Your disk/device %s: still doesn't offer enough free disk space "
  295.     "for installing the printer driver. The requested installation "
  296.     "requires at least %ld bytes of free disk space.\n"
  297.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  298. ))
  299. (set #tofull2
  300. (cat "Your disk/device %s: doesn't offer enough free disk space "
  301.     "for installing the printer driver. I couldn't find "
  302.     "any unnecessary files for deletion in order to make space free. Please have a look "
  303.     "the files stored on the disk and delete unnecessary files. "
  304.     "The installation requires at least %ld bytes of free disk space.\n"
  305.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  306. ))
  307. ;--------------
  308. (set #nodevice
  309. (cat "\nWarning\n\n It seems the 'printer.device' file is not "
  310.     "available in your 'DEVS:' directory. This file is required "
  311.     "for printing and does allways come with your original Workbench "
  312.     "disks.\n\n"
  313.     "Please make the printer.device file available after installing Studio."
  314. ))
  315. ;--------------
  316. (set #nopardevice
  317. (cat "\nWarning\nIt seems the 'parallel.device' file is not "
  318.     "available in your 'DEVS:' directory. Unless you use the serial port or "
  319.     "an expansion board for printing, this file may be required "
  320.     "for printing. It does come with your Workbench "
  321.     "disks. Without this file applications might be unable to access the printer port. \n\n"
  322.     "Please make the parallel.device file available after installing Studio "
  323.     "if problems accessing the printer appear."
  324. ))
  325. ;--------------
  326. (set #noenv
  327. (cat "There is no volume/device/assign 'ENV:' available. "
  328.     "The 'ENV:' volume is usualy created by your system's 'startup-sequence' "
  329.     "located in the 'S:' volume. It seems you are using a custom startup-sequence. "
  330.     "Please make sure there is an ENV: volume created by your system disk. "
  331.     "See your system and/or Studio manual for help."
  332. ))
  333. ;--------------
  334. (set #noenvarc
  335. (cat "There is no volume/device/assign 'ENVARC:' available. "
  336.     "The 'ENVARC:' volume is usualy created by your system during boot time. "
  337.     "It seems you are using a custom boot procedure. "
  338.     "Please make sure there is an ENVARC: volume created by your system disk. "
  339.     "See your system and/or Studio manual for help."
  340. ))
  341. ;--------------
  342. (set #finalmsg
  343. (cat "Your requested driver has been installed. The name of the driver is\n\"%s"
  344.     "\"\nand should now be selected in the Workbench preferences program \"Printer\".\n"
  345.     "The Studio driver preferences program has been saved as\n\"%s"
  346.     "\"\nand should now be used to adjust the driver to your needs.\n"
  347.     "Please adjust all settings to your printer."
  348. ))
  349. ;--------------
  350. (set #wrongdither
  351. (cat "\n\nWARNING: Your Workbench preferences is setup WRONG.\n\n"
  352.     "Please select \"ordered\" dithering in preferences "
  353.     "(in \"PrinterGfx\"). Allways set the Workbench preferences to \"Ordered\" "
  354.     "Dithering is controlled by the Studio \"%s\" preferences program.\n"
  355.     "I will now try to start Workbench preferences for you."
  356. ))
  357. ;--------------
  358. (set #ask-studio
  359. (cat "\nSelect the disk or drawer the 'Studio' application drawer should be created in?"
  360. ))
  361. (set #ask-studiodisk
  362. (cat "\nSelect the %ld. empty disk."
  363. ))
  364. (set #ask-studio-help
  365. (cat "\nThis section lets you choose in which drawer or on which disk the "
  366.     "Studio application program should be installed. "
  367.     "The program can be installed to any disk/drawer you like. "
  368.     "The selected disk should have at least 800 KByte free space. "
  369.     "For a complete installation, you should have 2 MByte free space.\n\n"
  370.     @askdir-help
  371. ))
  372. ;--------------
  373. (set #tofullstudio
  374. (cat "Your disk/device %s: doesn't offer enough free disk space "
  375.     "for installing Studio. The requested installation "
  376.     "requires at least %ld bytes of free disk space.\n"
  377.     "After deleting/moving unnecessary files in order to make space, try installing again.\n\n"
  378. ))
  379. ;--------------
  380. (set #nomore
  381. (cat "A minor warning:\n\nA floppy disk doesn't offer enough disk space to install all available Studio output module. "
  382.     "\n\nPlease, don't select more than two(!) output modules in the next window or the installation "
  383.     "might fail.\nYou may add additional output modules later by using this installation program if enough disk space is available. "
  384. ))
  385. ;--------------
  386. (set #w-output
  387. (cat "Please select your wanted Studio output module(s)"
  388. ))
  389. (set #w-output-help
  390. (cat "\nStudio can print using the Workbench printer driver or custom made drivers. "
  391.     "The custom made printer drivers are called Studio output modules. They "
  392.     "offer faster and more convinient control over your printer. "
  393.     "Please choose the output module that might work with your printer. "
  394.     "You may install additional modules anytime later using this installation "
  395.     "program.\n\n"
  396.     @askoptions-help
  397. ))
  398. ;--------------
  399. (set #tofullmodule
  400. (cat "Your disk/device %s: doesn't offer enough free disk space "
  401.     "for installing the '%s' output module. The installation "
  402.     "requires at least %ld bytes of free disk space.\n\n"
  403.     "You may continue now and install the requested output module "
  404.     "later if disk space becomes available. Restart this installation "
  405.     "in order to add the modules.\n\n"
  406. ))
  407. ;--------------
  408. (set #ask-studiomod
  409. (cat "\nSelect the disk or drawer the 'Studio' application program is placed in. "
  410. ))
  411. (set #ask-studiomod-help
  412. (cat "You should now select the drawer the 'Studio' application program is placed in. "
  413.     "Usualy the program is placed in the Studio drawer and thus the Studio drawer "
  414.     "should be selected.\n\n"
  415.     @askdir-help
  416. ))
  417. ;--------------
  418. (set #nostudio
  419. (cat "\nSorry, I can't find the \"Studio_Output\" drawer in the %s drawer. "
  420.     "Please check the drawer and try installing again. "
  421. ))
  422. ;--------------
  423. (set #noserver
  424. (cat "\nNote: because of the missing ENV: or ENVARC: assign you "
  425.     "might be unable to use Studio's server function. "
  426.     "The server function allows application programs to "
  427.     "use Studio for printing. Otherwise the Studio program "
  428.     "should work fine even without the assigns. "
  429. ))
  430. ;--------------
  431. (set #nostudiopro
  432. (cat "\nSorry, I can't find the \"Studio_Profiles\" drawer in the %s drawer. "
  433.     "Please check the drawer and try installing again. "
  434. ))
  435. ;--------------
  436. (set #nostudioprefs
  437. (cat "\nSorry, I can't find the \"Studio_Prefs\" drawer in the %s drawer. "
  438.     "Please check the drawer and try installing again. "
  439. ))
  440. ;--------------
  441. (set #nomorepro
  442. (cat "A minor warning:\n\nA floppy disk doesn't offer enough disk space to install all available Studio profiles. "
  443.     "\n\nPlease, don't select more than one set of profiles in the next window or the installation "
  444.     "might fail.\nYou may add additional profiles later by using this installation program if enough disk space is available. "
  445. ))
  446. ;--------------
  447. (set #w-profile
  448. (cat "Please select your wanted set(s) of CMS profiles"
  449. ))
  450. (set #w-profile-help
  451. (cat "\nProfiles are made for Studio's Color Management System (CMS). "
  452.     "They are used by the CMS to make sure colors are "
  453.     "printed correctly. A profile is allways made for a specific "
  454.     "printer and shouldn't be used with any other setup.\n\n"
  455.     @askoptions-help
  456. ))
  457. ;--------------
  458. (set #tofullprofile
  459. (cat "Your disk/device %s: doesn't offer enough free disk space "
  460.     "for installing the '%s' profiles. The installation "
  461.     "requires at least %ld bytes of free disk space.\n\n"
  462.     "You may continue now and install the requested output module "
  463.     "later if disk space becomes available. Restart this installation "
  464.     "in order to add the modules.\n\n"
  465. ))
  466. ;--------------
  467. (set #mydisk
  468. (cat "Please insert the disk named\n\n\"StudioDisk_%ld\"\n\nin any drive."
  469. ))
  470. ;--------------
  471. (set #w-preset
  472. (cat "Please select Studio's default parameters."
  473. ))
  474. (set #w-preset-help
  475. (cat "\nYou can define default parameters for the Studio application. " 
  476.     "The default parameters should be used if available for your "
  477.     "printer. Select the parameters you plan to use most of the time.\n\n"
  478.     "If your printer is not listed, select the \"Default_Setting.prefs\" setting file.\n\n"
  479.     @askfile-help
  480. ))
  481. ;--------------
  482. ;*** German
  483. (if (= @language "deutsch")
  484. (
  485.  
  486.     (set #welcome
  487.     (cat "\nBei \"Intermediate\" werden die Treiber auf der aktuellen Systemdiskette installiert.\n"
  488.         "Bei \"Expert\" können die Druckertreiber auf einer beliebigen Disk gespeichert werden.\n\n"
  489.     ))
  490.     (set #welcome-pirate
  491.     (cat "\nWillkommen zur Installation der Studio-Software!\n\n"
  492.         "Copyright (C)1992-94 Wolf Faust\n"
  493.         "Studio ist NICHT Public Domain, Shareware, FreeWare oder ähnliches!\n\n\n"
  494.         "Bitte kopieren Sie daher nicht die Software oder ein weiteres Amiga-Produkt "
  495.         "kann in Zukunft nicht unterstützt werden!"
  496.     ))
  497.     ;--------------
  498.     (set #waitmsg
  499.     (cat "\n\n\n\nIch arbeite! Bitte warten..."
  500.     ))
  501.     ;--------------
  502.     (set #bad-kick
  503.     (cat    "\nIhre System-Software ist sehr alt. "
  504.         "Sie brauchen mindestens Kickstart 2.04 für alle Studio-Programme."
  505.     ))
  506.     ;--------------
  507.     (set #diskbased
  508.     (cat "Auf welche Geräte wollen Sie Studio installieren?"
  509.     ))
  510.     (set #diskbased-choices1
  511.     (cat "Auf eine Festplatte."
  512.     ))
  513.     (set #diskbased-choices2
  514.     (cat "2 oder mehr Diskettenstationen - Ohne Festplatte."
  515.     ))
  516.     (set #diskbased-choices3
  517.     (cat "Eine Diskettenstation - Ohne Festplatte."
  518.     ))
  519.     (set #diskbased-help
  520.     (cat "\nStudio benötigt mehr freien  Speicherplatz als auf einer Diskette "
  521.         "vorhanden ist. Das Installationsprogramm hilft Ihnen bei der "
  522.         "Installation auf mehrere Disketten.\n\n"
  523.         @askoptions-help
  524.     ))
  525.     ;--------------
  526.     (set #w-studio
  527.     (cat "Welche Programme der Studio-Software wollen Sie installieren?"
  528.     ))
  529.     (set #w-studio-help
  530.     (cat "\nDie Studio-Software besteht im wesentlichen aus zwei von einander "
  531.         "unabhängigen Teilen: Druckertreiber und dem Studio-Anwendungsprogramm. "
  532.         "Sie können jetzt wählen, welche Teile Sie installieren wollen.\n\n"
  533.         @askoptions-help
  534.     ))
  535.     (set #w-studio-choices1
  536.     (cat "Entfernen der Canon, Studio V1 und V2 Treiber"
  537.     ))
  538.     (set #w-studio-choices2
  539.     (cat "Studio Druckertreiber"
  540.     ))
  541.     (set #w-studio-choices3
  542.     (cat "Studio Druckprogramm"
  543.     ))
  544.     (set #w-studio-choices4
  545.     (cat "Studio Druckprogramm-Ausgabemodul"
  546.     ))
  547.     (set #w-studio-choices5
  548.     (cat "Drucker-Profiles installieren"
  549.     ))
  550.     (set #w-studio-choices6
  551.     (cat "Voreinstellung für das Druckprogramm"
  552.     ))
  553.     ;--------------
  554.     (set #abortnochoice
  555.     (cat "Sie haben keine Option gewählt. Bitte starten Sie das Installations-Programm erneut\n"
  556.     ))
  557.     ;--------------
  558.     (set #format
  559.     (cat "\nSie benötigen %ld leere Disketten um die gewünschte Software zu installieren. "
  560.         "Benutzen Sie den 'Format'-Menüpunkt der Workbench, um eine leere Diskette zu erstellen. "
  561.         "\n\nBenennen Sie die Disketten nach einem eindeutigen Namen, "
  562.         "z.B. \"Studio_Prefs\" für die Druckertreiber und \"Studio_Print\" für das "
  563.         "Druckprogramm. "
  564.     ))
  565.     ;--------------
  566.     (set #abortunpack
  567.     (cat "\nEin Fehler trat beim Entpacken/Schreiben einer Datei auf!\n"
  568.         "Das zu entpackende Archiv lautete:\n\n\"%s\"\n\n"
  569.     ))
  570.     ;--------------
  571.     (set #cfm-delete
  572.     (cat "\n\n              Warnung!\n\n"
  573.         "Machen Sie eine Sicherheitskopie, bevor Sie Programme löschen. \n"
  574.         "Soll ich jetzt wirklich alle Treiber löschen?\n\n"
  575.     ))
  576.     (set #cfm-delete-help
  577.     (cat "\nEs scheint, Sie hatten bereits einmal einen Studio-Treiber "
  578.         "installiert. Sie müssen die Voreinstellungen des alten Treibers "
  579.         "löschen, bevor ein neuer Treiber installiert werden kann.\n\n"
  580.     ))
  581.     (set #cfm-delete-1
  582.     (cat "Ja, löschen"
  583.     ))
  584.     (set #cfm-delete-2
  585.     (cat "Nein"
  586.     ))
  587.     ;--------------
  588.     (set #ask-sys
  589.     (cat "\nIn welche Disk oder Schublade soll der Studio-Druckertreiber kopiert werden?"
  590.     ))
  591.     (set #ask-sys-help
  592.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  593.         "Schublade der Studio-Druckertreiber kopiert werden soll. Normalerweise sollten "
  594.         "Sie hierzu die Schublade \"Devs:Printers\" wählen.\n\n"
  595.         @askdir-help
  596.     ))
  597.     ;--------------
  598.     (set #w-emul
  599.     (cat "Was für eine Emulation unterstützt Ihr Drucker?"
  600.     ))
  601.     (set #w-emul-help
  602.     (cat "\nStudio enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  603.         "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  604.         "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  605.         "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  606.         "Versuchen Sie daher mehrere Emulationen aus, um die für Sie richtige zu finden.\n\n"
  607.         @askchoice-help
  608.     ))
  609.     (set #w-emul-choices0
  610.     (cat "Nadeldrucker: Epson, Nec, Star, Brother"
  611.     ))
  612.     (set #w-emul-choices1
  613.     (cat "Nadeldrucker: Fujitsu, Panasonic, Citizen"
  614.     ))
  615.     (set #w-emul-choices2
  616.     (cat "Epson ESC/P2 kompatibel (Stylus, ...)"
  617.     ))
  618.     (set #w-emul-choices3
  619.     (cat "Canon BJ und BJC, Brother HJ 100"
  620.     ))
  621.     (set #w-emul-choices4
  622.     (cat "Deskjet: Portable, 310, 500, 510, 520"
  623.     ))
  624.     (set #w-emul-choices5
  625.     (cat "Deskjet: 500C, 1200, Painjet 300XL"
  626.     ))
  627.     (set #w-emul-choices6
  628.     (cat "Deskjet 550C, 560C und kompatible"
  629.     ))
  630.     (set #w-emul-choices7
  631.     (cat "HP LaserJet / PCL kompatible"
  632.     ))
  633.     ;--------------
  634.     (set #w-color
  635.     (cat "Was für einen Drucker haben Sie?"
  636.     ))
  637.     (set #w-color-help
  638.     (cat "\nStudio Druckertreiber erlauben das Drucken von bis zu 256 Graustufen "
  639.         "durch das Emulieren eines Farbdruckers. Sie müssen daher zwischen "
  640.         "Farb- und Graustufen-Druck wählen.\n"
  641.         "Wählen Sie die von Ihnen am meisten benutzte Ausdrucksform. "
  642.         "Die Einstellung kann dann später bei Bedarf jederzeit geändert "
  643.         "werden.\n\n"
  644.         @askchoice-help
  645.     ))
  646.     (set #w-color-choice1
  647.     (cat "Farbe"
  648.     ))
  649.     (set #w-color-choice2
  650.     (cat "Graustufen"
  651.     ))
  652.     ;--------------
  653.     (set #w-driver
  654.     (cat "Wie lautet die Emulation bzw. der Hersteller Ihres Druckers?"
  655.     ))
  656.     (set #w-driver-help
  657.     (cat "\nStudio enthält Druckertreiber für verschiedene Drucker-Emulationen. "
  658.         "Das Benutzerhandbuch Ihres Druckers gibt Ihnen sicher Auskunft über "
  659.         "die von Ihrem Drucker unterstützten Emulationen.\n\n"
  660.         "Viele Drucker unterstützen mehrere Emulationen in verschiedener Qualität. "
  661.         "Versuchen Sie daher mehrere Emulationen, um die für Sie richtige zu finden.\n\n"
  662.         @askchoice-help
  663.     ))
  664.     (set #w-driver-laserhelp
  665.     (cat "\nEs gibt mehrere Laserjet-Emulationen. Dieses Fenster "
  666.         "hilft Ihnen beim finden der für Ihren Drucker richtigen "
  667.         "Emulation. In seltenen Fällen müssen Sie die Einstellungen "
  668.         "in LaserPref nach der Installation weiter optimieren, um "
  669.         "die für Sie optimalen Einstellungen zu finden.\n\n"
  670.         @askchoice-help
  671.     ))
  672.     ;--------------
  673.     (set #w-ink
  674.     (cat "Was für einen Typ von Drucker haben Sie?"
  675.     ))
  676.     (set #w-ink-help
  677.     (cat @askchoice-help
  678.     ))
  679.     (set #w-ink-choice1
  680.     (cat "Tintenstrahldrucker"
  681.     ))
  682.     (set #w-ink-choice2
  683.     (cat "Nadeldrucker"
  684.     ))
  685.     ;--------------
  686.     (set #ask-prefs
  687.     (cat "\nIn welche Disk oder Schublade soll das Voreinsteller-Programm "
  688.         "(engl. Preferences) kopiert werden?"
  689.     ))
  690.     (set #ask-prefsdisk
  691.     (cat "\nBitte wählen Sie die %ld. leere Diskette."
  692.     ))
  693.     (set #ask-prefs-help
  694.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welche "
  695.         "Schublade das Studio Voreinsteller-Programm kopiert werden soll. "
  696.         "Normalerweise sollten Sie hierzu die Schublade \"SYS:Prefs\" wählen.\n\n"
  697.         @askdir-help
  698.     ))
  699.     ;--------------
  700.     (set #pin2note
  701.     (cat "\nAchtung: Benutzen Sie nicht die Workbench Auflösung (Density) 2 oder 7, wenn Ihr Drucker nicht mit 720dpi drucken kann.\n\n"
  702.     ))
  703.     ;--------------
  704.     (set #yellspace
  705.     (cat "\nDiese Installation benötigt mehr als %ld Bytes freien Speicherplatz auf der Disk. \"%s\". "
  706.         "Sie können jetzt unnötige Dateien von der Disk löschen. Sie können auch fortfahren mit der "
  707.         "Installation und das Installationsprogramm wird versuchen, unnötige Dateien zu löschen. "
  708.         "Sie werden jeweils um Erlaubnis gefragt, bevor eine Datei gelöscht wird.\n"
  709.         "MACHEN SIE EINE SICHERHEITSKOPIE IHRER DISK, BEVOR SIE DATEIEN LÖSCHEN.\n"
  710.     ))
  711.     ;--------------
  712.     (set #tdel0 "Utilities/Clock")
  713.     (set #tdel1 "Devs/Printers/Generic")
  714.     (set #tdel2 "C/SetFont")
  715.     (set #tdel3 "C/Edit")
  716.     (set #tdel4 "C/Eval")
  717.     (set #tdel5 "C/DiskChange")
  718.     (set #tdel6 "C/FileNote")
  719.     (set #tdel7 "C/Lock")
  720.     (set #tdel8 "C/Search")
  721.     (set #tdel9 "C/Sort")
  722.     (set #tdel10 "C/MagTape")
  723.     (set #tdel11 "C/MakeLink")
  724.     (set #tdel12 "C/RemRad")
  725.     (set #tdel13 "C/Which")
  726.     (set #tdel14 "C/ChangeTaskPri")
  727.     (set #tdel15 "C/Join")
  728.     (set #tdel16 "System/NoFastMem")
  729.     
  730.     (set #del0 "Zeigt die Uhrzeit an")
  731.     (set #del1 "Ein simpler ASCII-Text Druckertreiber")
  732.     (set #del2 "Definiert den Systemzeichensatz")
  733.     (set #del3 "Ein Zeileneditor")
  734.     (set #del4 "Löst mathematische Ausdrücke")
  735.     (set #del5 "FÜhrt einen Diskwechsel aus")
  736.     (set #del6 "Editieren von Dateikommentaren")
  737.     (set #del7 "Schützt Dateien vor dem Löschen")
  738.     (set #del8 "Sucht eine Datei")
  739.     (set #del9 "Sortiert eine Datei")
  740.     (set #del10 "Kontrolliert Streamer")
  741.     (set #del11 "Erzeugt Disk-Links")
  742.     (set #del12 "Entfernt die Resetfeste-Ram-Disk")
  743.     (set #del13 "Zeigt den Speicherort eines Befehls")
  744.     (set #del14 "Verändert die Task-Priorität")
  745.     (set #del15 "Verbindet Dateien")
  746.     (set #del16 "Entfernt Fast-Speicher")
  747.     ;--------------
  748.     (set #full-delete
  749.     (cat "\nKann ich die Datei '%s' löschen?\n\n"
  750.         "Aufgabe der Datei:\n\n"
  751.         "%s"
  752.     ))
  753.     (set #full-delete-help
  754.     (cat "\nIhre Systemdiskette verfügt nicht über genug Speicherplatz, um einen Druckertreiber zu installieren. "
  755.         "Das Installationsprogramm kann jetzt für Sie unnötige Dateien löschen. "
  756.         "Sie müssen nicht alle angezeigten Dateien löschen, doch kann dies dazu führen, "
  757.         "das bei zu wenig freiem Speicherplatz, die Installation nicht zu Ende geführt werden kann. "
  758.     ))
  759.     (set #full-delete-1
  760.     (cat "Ja, löschen."
  761.     ))
  762.     (set #full-delete-2
  763.     (cat "Nein!"
  764.     ))
  765.     ;--------------
  766.     (set #tofull
  767.     (cat "Ihre Disk '%s' besitzt nicht gennug freien Speicherplatz. Es sind "
  768.         "mindestens %ld Bytes an freiem Speicherplatz notwendig für "
  769.         "die Installation des gewünschten Treibers.\n"
  770.         "Bitte löschen Sie unnötige Dateien von der Disk und versuchen Sie anschließend "
  771.         "erneut die Installation.\n\n"
  772.     ))
  773.     (set #tofull2
  774.     (cat "Ihre Disk '%s' besitzt nicht gennug freien Speicherplatz. Es sind "
  775.         "mindestens %ld Bytes an freiem Speicherplatz notwendig für "
  776.         "die Installation des gewünschten Treibers. "
  777.         "Es konnten keine unnötigen Dateien zum Löschen vom Installationsprogramm "
  778.         "gefunden werden. "
  779.         "Bitte löschen Sie unnötige Dateien von der Disk und versuchen Sie anschließend "
  780.         "erneut die Installation.\n\n"
  781.     ))
  782.     ;--------------
  783.     (set #nodevice
  784.     (cat "\nAchtung:\n\nEs scheint, Ihre Systemdiskette besitzt nicht die Datei 'printer.device' "
  785.         "im 'DEVS:'-Verzeichnis. Diese Datei wird zum Drucken von Programmen benötigt und "
  786.         "ist Teil jeder richtigen Workbench-Diskette.\n\n"
  787.         "Bitte machen Sie die 'printer.device' Datei nach der Installation verfügbar."
  788.     ))
  789.     ;--------------
  790.     (set #nopardevice
  791.     (cat "\nAchtung:\n\nEs scheint, Ihre Systemdiskette besitzt nicht die Datei 'parallel.device' "
  792.         "im 'DEVS:'-Verzeichnis. Sollten Sie nicht über eine Schnittstellenkarte oder "
  793.         "den Seriellen-Port des Amigas drucken, wird diese Datei zum Drucken dringends benötigt. "
  794.         "Die Datei ist Teil jeder richtigen Workbench-Diskette.\n\n"
  795.         "Bitte machen Sie die 'parallel.device' Datei nach der Installation verfügbar."
  796.     ))
  797.     ;--------------
  798.     (set #noenv
  799.     (cat "\nLeider ist keine Schublade mit dem Namen \"Env:\" auffindbar!\n"
  800.         "Studio speichert Einstellungen in dieser Schublade. "
  801.         "Normalerweise wird \"Env:\" von der standard Startup-Sequence von "
  802.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  803.         "Startup-Sequence.\n"
  804.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren Studio von "
  805.         "neuem!\n\n"
  806.     ))
  807.     ;--------------
  808.     (set #noenvarc
  809.     (cat "\nLeider ist keine Schublade mit dem Namen \"ENVARC:\" auffindbar!\n"
  810.         "Studio speichert Einstellungen in dieser Schublade. "
  811.         "Normalerweise wird \"ENVARC:\" von der standard Startup-Sequence von "
  812.         "Commodore erzeugt. Es scheint, Sie benutzen eine veränderte "
  813.         "Startup-Sequence.\n"
  814.         "Bitte korregieren Sie Ihre Startup-Sequence und installieren Studio von "
  815.         "neuem!\n\n"
  816.     ))
  817.     ;--------------
  818.     (set #finalmsg
  819.     (cat "Der gewünschte Studio Treiber wurde unter dem Namen\n\"%s"
  820.         "\"\ninstalliert und sollte jetzt in dem Workbench \"Printer\"-Voreinsteller eingestellt werden.\n"
  821.         "Der Studio Treiber-Voreinsteller wurde unter dem Namen\n\"%s"
  822.         "\"\ngespeichert und dient zum Einstellen zusätzlicher Funktionen des Treibers.\n"
  823.     ))
  824.     ;--------------
  825.     (set #wrongdither
  826.     (cat "\n\nACHTUNG: Die Workbench Voreinstellungen sind FALSCH!\n\n"
  827.         "Bitte selektieren Sie die \"geordnete\" (engl. ordered) "
  828.         "Dither-Methode mit Hilfe des \"PrinterGfX\"- bzw. \"Preferences\"-"
  829.         "Programms. Zur Erleichterung und zur Sicherheit wird das Programm "
  830.         "für die Voreinstellungen jetzt gestartet..."
  831.     ))
  832.     ;--------------
  833.     (set #ask-studio
  834.     (cat "\nWählen Sie eine Disk/Verzeichnis, in dem das Studio-Verzeichnis angelegt werden soll."
  835.     ))
  836.     (set #ask-studiodisk
  837.     (cat "\nBitte wählen Sie die %ld. leere Diskette."
  838.     ))
  839.     (set #ask-studio-help
  840.     (cat "\nIn diesem Teil können Sie wählen, auf welche Disk oder in welcher "
  841.         "Schublade das Studio-Schublade des Druckprogramms kopiert werden soll. Normalerweise sollten "
  842.         "Sie hierzu die Schublade wählen, in der Sie auch Ihre anderen "
  843.         "Grafikprogramme speichern. Die gewählte Disk sollte mindestens 800KByte "
  844.         "an freien Speicherplatz besitzen. Für eine Installation aller Treiber und Profiles sollten mindestens "
  845.         "2MByte frei sein.\n\n"
  846.         @askdir-help
  847.     ))
  848.     ;--------------
  849.     (set #tofullstudio
  850.     (cat "Ihre Disk/Verzeichnis '%s' besitzt nicht genug freien Speicherplatz. "
  851.         "Zur Installation von Studio sind mindestens %ld Bytes notwendig. "
  852.         "Bitte machen Sie Speicherplatz verfügbar und installieren Sie erneut.\n\n"
  853.     ))
  854.     ;--------------
  855.     (set #nomore
  856.     (cat "Achtung!\n\nEine Diskette besitzt nicht genug Speicherplatz zur Installation aller Studio-Ausgabemodule. "
  857.         "Bitte wählen Sie nicht mehr als zwei Ausgabemodule aus dem folgenden Fenster aus oder die Installation "
  858.         "eines Moduls könnte fehlschlagen.\n\nSie können jederzeit mit dem Installationsprogramm weitere Ausgabemodule "
  859.         "später hinzufügen, wenn genug Speicherplatz verfügbar ist."
  860.     ))
  861.     ;--------------
  862.     (set #w-output
  863.     (cat "Bitte wählen Sie ein gewünschtes Studio Ausgabemodul!"
  864.     ))
  865.     (set #w-output-help
  866.     (cat "\nDas Studio Druckprogramm druckt mittels Ausgabemodule auf verschiedene Drucker. "
  867.         "Sollte kein Ausgabemodul für Ihren Drucker vorhanden sein, wählen Sie das "
  868.         "Workbench-Ausgabemodul. Dieses erlaubt Studio, auf jeden beliebigen Amiga-Druckertreiber "
  869.         "zu drucken. Sie müssen nicht jetzt alle Module installieren und können jederzeit später weitere "
  870.         "Module hinzufügen.\n\n"
  871.         @askoptions-help
  872.     ))
  873.     ;--------------
  874.     (set #tofullmodule
  875.     (cat "Ihre Disk/Verzeichnis '%s' besitzt nicht genug freien Speicherplatz "
  876.         "zur Installation des '%s' Ausgabemoduls. Es sind mindestens %ld Bytes notwendig. "
  877.         "Sie können jetzt mit der Installation fortfahren und das Modul später extra "
  878.         "installieren, wenn genug Speicherplatz verfügbar ist.\n\n"
  879.     ))
  880.     ;--------------
  881.     (set #ask-studiomod
  882.     (cat "\nBitte wählen Sie die Schublade, in dem Sich das 'Studio'-Programm befindet."
  883.     ))
  884.     (set #ask-studiomod-help
  885.     (cat @askdir-help
  886.     ))
  887.     ;--------------
  888.     (set #nostudio
  889.     (cat "Ich kann die \"Studio_Output\" Schublade nicht in der Schublade\n\n'%s'\n\nfinden. "
  890.         "Bitte prüfen Sie die angegebene Schublade und versuchen die Installation erneut."
  891.     ))
  892.     ;--------------
  893.     (set #noserver
  894.     (cat "\nAchtung: Da eine ENV: und/oder ENVARC: Schublade nicht vorhanden war, "
  895.         "konnte die Server-Funktion von Studio nicht installiert werden. Die Server-Funktion wird "
  896.         "von Anwendungsprogrammen zum Druck mit Studio verwendet. Mit Ausnahme der Server-Funktion "
  897.         "sollte dennoch Studio voll funktionieren. "
  898.     ))
  899.     ;--------------
  900.     (set #nostudiopro
  901.     (cat "Ich kann die \"Studio_Profiles\" Schublade nicht in der Schublade\n\n'%s'\n\nfinden. "
  902.         "Bitte prüfen Sie die angegebene Schublade und versuchen die Installation erneut."
  903.     ))
  904.     ;--------------
  905.     (set #nostudioprefs
  906.     (cat "Ich kann die \"Studio_Prefs\" Schublade nicht in der Schublade\n\n'%s'\n\nfinden. "
  907.         "Bitte prüfen Sie die angegebene Schublade und versuchen die Installation erneut."
  908.     ))
  909.     ;--------------
  910.     (set #nomorepro
  911.     (cat "Achtung!\n\nEine Diskette besitzt nicht genug Speicherplatz zur Installation aller Drucker Profiles. "
  912.         "Bitte wählen Sie nicht mehr als einen Satz Profiles aus dem folgenden Fenster aus oder die Installation "
  913.         "eines Profiles könnte fehlschlagen.\n\nSie können jederzeit mit dem Installationsprogramm weitere Profiles "
  914.         "später hinzufügen, wenn genug Speicherplatz verfügbar ist."
  915.     ))
  916.     ;--------------
  917.     (set #w-profile
  918.     (cat "Bitte wählen Sie die gewünschten Drucker Profiles aus!"
  919.     ))
  920.     (set #w-profile-help
  921.     (cat "\nDrucker Profiles werden von dem Studio Farbmanagementsystem verwendet "
  922.         "und sind spezifisch für einen Drucker geschrieben worden. "
  923.         "Ein Profile beschreibt die vom Drucker druckbaren Farben.\n\n"
  924.         @askoptions-help
  925.     ))
  926.     ;--------------
  927.     (set #tofullprofile
  928.     (cat "Ihre Disk/Verzeichnis '%s' besitzt nicht genug freien Speicherplatz "
  929.         "zur Installation der '%s' Profiles. Es sind mindestens %ld Bytes notwendig. "
  930.         "Sie können jetzt mit der Installation fortfahren und die Profiles später extra "
  931.         "installieren, wenn genug Speicherplatz verfügbar ist.\n\n"
  932.     ))
  933.     ;--------------
  934.     (set #mydisk
  935.     (cat "Bitte legen Sie die Diskette\n\n\"StudioDisk_%ld\"\n\nin ein beliebiges Laufwerk."
  936.     ))
  937.     ;--------------
  938.     (set #w-preset
  939.     (cat "Bitte wählen Sie eine Datei mit Standardeinstellungen. "
  940.     ))
  941.     (set #w-preset-help
  942.     (cat "\nSie können die Standard-Einstellungen von Studio vorgeben. "
  943.         "Wählen Sie daher die Einstellungen für den am meisten von Ihnen verwendeten Drucker.\n\n"
  944.         "Sollte keiner der Parameter auf Ihren Drucker zutreffen, wählen Sie die "
  945.         "'Default_Setting.prefs' Einstellung.\n\n"
  946.         @askfile-help
  947.     ))
  948. ))
  949.  
  950.  
  951.  
  952.  
  953.  
  954.  
  955.  
  956.  
  957.  
  958.  
  959.  
  960.  
  961.  
  962.  
  963. (procedure Meter
  964. (
  965.     (set accum    (+ accum addmeter))
  966.     (complete (/ (* accum 100) total))
  967. ))
  968.  
  969. (complete 0)
  970. ;(welcome #welcome)
  971. ;(message #welcome-pirate)
  972.  
  973. (set total        0)
  974. (set accum        0)
  975. (set addmeter        0)
  976. (set firstdisk "")
  977. ; **** sure we are running under a 2.04 or higher ROM???
  978. (if (< (/ (getversion) 65536) 37)
  979.     (abort #bad-kick)
  980. )
  981.  
  982. ; **** Does this system offer a hard disk?   0=HD  1=2nd floppy  2=one floppy
  983. (set diskbased (askchoice (prompt #diskbased)
  984.     (help #diskbased-help)
  985.     (choices #diskbased-choices1 #diskbased-choices2 #diskbased-choices3)
  986.     (default 0)
  987.     )
  988. )
  989. (complete 1)
  990. ; **** Wich parts should get installed: driver &-| Studio?
  991. (set studio (askoptions (prompt #w-studio)
  992.     (help #w-studio-help)
  993.     (choices #w-studio-choices1 #w-studio-choices2 #w-studio-choices3 #w-studio-choices4 #w-studio-choices5 #w-studio-choices6)
  994.     (default (if (> diskbased 1) %111110 %111110))  ; use 111111 for second %111110 if deletion is wanted as default for non-signle floppy systems
  995.     )
  996. )
  997. ; **** determine max. meter for complete()
  998. (set n 0)
  999. (while (set size (select n 5    ; delete
  1000.     26       ; driver
  1001.     30       ; application
  1002.     10       ; output module
  1003.     10       ; profile
  1004.     4        ; application preset
  1005.     0 ))
  1006. (
  1007.     (if (IN studio n)
  1008.     (
  1009.         (set total (+ total size))
  1010.     ))
  1011.     (set n (+ n 1))
  1012. ))
  1013. (set disknumber 1)
  1014. (if (> diskbased 0)
  1015. (
  1016.     (set format 0)
  1017.     (if (IN studio 1)
  1018.     (
  1019.         (set format 1)
  1020.     ))
  1021.     (if (IN studio 2)
  1022.     (
  1023.         (set format 2)
  1024.     ))
  1025.     (if (> format 0)
  1026.     (
  1027.         (message (#format format))
  1028.     ))
  1029. ))
  1030. (set @default-dest "")
  1031. (if (> studio 0)
  1032. (
  1033.     (set TotalFiles        (+ TotalFiles 2))
  1034.     (copyfiles (source "StudioDisk_1:check")
  1035.         (dest "RAM:")
  1036.         (nogauge)
  1037.     )
  1038.     (copyfiles (source "StudioDisk_1:lx")
  1039.         (dest "RAM:")
  1040.         (nogauge)
  1041.     )
  1042.     (set exerr (run "RAM:lx n"))
  1043.     (if (> exerr 0)
  1044.     (
  1045.         (abort (#abortunpack "-none-"))
  1046.     ))
  1047. )
  1048. (
  1049.     (abort #abortnochoice)
  1050. ))
  1051. ; **** delete old drivers/prefs
  1052. (if (IN studio 0)
  1053. (
  1054.     (set addmeter    1)
  1055.     (Meter)
  1056.     (if (askbool (prompt (#cfm-delete))
  1057.         (help (#cfm-delete-help ))
  1058.         (choices #cfm-delete-1 #cfm-delete-2)
  1059.         (default 1))
  1060.     (
  1061.         (set n 0)
  1062.         (while (set thisfile (select n  "Beep"
  1063.             "Time"
  1064.             "ResX"
  1065.             "ResY"
  1066.             "Dry"
  1067.             "GAdj"
  1068.             "CAdj"
  1069.             "MAdj"
  1070.             "YAdj"
  1071.             "GDit"
  1072.             "CDit"
  1073.             "MDit"
  1074.             "YDit"
  1075.             "Copies"
  1076.             "Type"
  1077.             "Type0"
  1078.             "Type1"
  1079.             "Type2"
  1080.             "Type3"
  1081.             "Type4"
  1082.             "Type5"
  1083.             "Type6"
  1084.             "Type7"
  1085.             "Type8"
  1086.             "Type9"
  1087.             "Type10"
  1088.             "Perf"
  1089.             "Mirror"
  1090.             "Sep"
  1091.             "Magenta"
  1092.             "Yellow"
  1093.             "Orient"
  1094.             "TDirect"
  1095.             "Scale"
  1096.             "Top"
  1097.             "Tab"
  1098.             "Super"
  1099.             "Form"
  1100.             "Color"
  1101.             "GEmu"
  1102.             "TEmu"
  1103.             "Strip"
  1104.             "Quiet"
  1105.             "KAdj"
  1106.             "KDit"
  1107.             "GFeed"
  1108.             "PageLen"
  1109.             "Wrap"
  1110.             "GDirect"
  1111.             "Shingl"
  1112.             "Depl"
  1113.             "Quality"
  1114.             "Compress"
  1115.             "Symbol"
  1116.             "Media"
  1117.             "PCL5"
  1118.             "Tray"
  1119.             "OutTray"
  1120.             "PJL"
  1121.             "HighRes"
  1122.             "PPage"
  1123.             "PjlHighRes"
  1124.             "PjlTimeout"
  1125.             "PjlTimeFlag"
  1126.             "PjlRet"
  1127.             "PjlProtect"
  1128.             "CDitAlg"
  1129.             "GDitAlg"
  1130.             "Emu"
  1131.             "Mode"
  1132.             "Font"
  1133.             "CanonBJ5-230Pref"
  1134.             "CanonBJECPref"
  1135.             "PinPref"
  1136.             "DeskPref"
  1137.             "DeskPref4C"
  1138.             "LaserPref"
  1139.             "" ))
  1140.         (
  1141.             (set n (+ n 1))
  1142.             (if (exists (cat "ENV:Studio" thisfile))
  1143.             (
  1144.                 (delete (cat "ENV:Studio" thisfile))
  1145.             ))
  1146.             (if (exists (cat "ENV:Canon" thisfile))
  1147.             (
  1148.                 (delete (cat "ENV:Canon" thisfile))
  1149.             ))
  1150.             (if (exists (cat "ENVARC:Studio" thisfile))
  1151.             (
  1152.                 (delete (cat "ENVARC:Studio" thisfile))
  1153.             ))
  1154.             (if (exists (cat "ENVARC:Canon" thisfile))
  1155.             (
  1156.                 (delete (cat "ENVARC:Canon" thisfile))
  1157.             ))
  1158.         ))
  1159.         (set addmeter    1)
  1160.         (Meter)
  1161.         (set n 0)
  1162.         (while (set thisfile (select n  "CanonBJ-EC"
  1163.             "CanonBJ5-2x0"
  1164.             "CanonBJ5-230"
  1165.             "PinDriver"
  1166.             "DeskDriver"
  1167.             "DeskDriver4C"
  1168.             "LaserDriver"
  1169.             "" ))
  1170.         (
  1171.             (set n (+ n 1))
  1172.             (if (exists (cat "devs:printers" thisfile))
  1173.             (
  1174.                 (delete (cat "devs:printers" thisfile))
  1175.             ))
  1176.             (if (exists (cat "printers:" thisfile) (noreq))
  1177.             (
  1178.                 (delete (cat "printers:" thisfile))
  1179.             ))
  1180.         ))
  1181.         (set addmeter    1)
  1182.         (Meter)
  1183.         (set n 0)
  1184.         (while (set thisfile (select n  "CanonPref"
  1185.             "CanonPref.info"
  1186.             "PinPref"
  1187.             "PinPref.info"
  1188.             "DeskPref"
  1189.             "DeskPref.info"
  1190.             "DeskPref4C"
  1191.             "DeskPref4C.info"
  1192.             "LaserPref"
  1193.             "LaserPref.info"
  1194.             "" ))
  1195.         (
  1196.             (set n (+ n 1))
  1197.             (if (exists (cat "sys:prefs" thisfile))
  1198.             (
  1199.                 (delete (cat "sys:prefs" thisfile))
  1200.             ))
  1201.             (if (exists (cat "sys:prefs" thisfile ".info"))
  1202.             (
  1203.                 (delete (cat "sys:prefs" thisfile ".info"))
  1204.             ))
  1205.         ))
  1206.         (set addmeter    1)
  1207.         (Meter)
  1208.     )
  1209.     (
  1210.         (set addmeter    3)
  1211.         (Meter)
  1212.     ))
  1213. ))
  1214. ; **** install driver
  1215. (if (IN studio 1)
  1216. (
  1217.     (set addmeter    1)
  1218.     (Meter)
  1219.     ; ask for kind of printer 
  1220.     (set emul   (askchoice (prompt #w-emul)
  1221.         (help #w-emul-help)
  1222.             (choices #w-emul-choices0    ; Dot-Matrix: Epson, Nec, Star
  1223.                 #w-emul-choices1    ; Dot-Matrix: Fujitsu, Panasonic
  1224.                 #w-emul-choices2    ; Epson ESC/P2 compatible (Stylus,...)
  1225.                 #w-emul-choices3    ; Canon BJ and BJC
  1226.                 #w-emul-choices4    ; Deskjet: 310,500,510,520
  1227.                 #w-emul-choices5    ; Deskjet: 500C, 1200, Painjet 300XL
  1228.                 #w-emul-choices6    ; Deskjet 550C, 560C and compatible
  1229.                 #w-emul-choices7    ; HP LaserJet / PCL compatible        
  1230.             )
  1231.             (default 0)
  1232.     ))
  1233.     (set addmeter    1)
  1234.     (Meter)
  1235.     ; ask for: color or b/w if not laser printer
  1236.     (set prtcolor 0)
  1237.     (if (< emul 7)
  1238.     (
  1239.         (set prtcolor (askchoice (prompt #w-color)
  1240.             (help #w-color-help)
  1241.             (choices #w-color-choice1
  1242.                 #w-color-choice2)
  1243.             (default 0)
  1244.         ))
  1245.     ))
  1246.     (set addmeter    1)
  1247.     (Meter)
  1248.     ; ask if ink jet or impact printer...
  1249.     (if (OR (OR (= emul 0) (= emul 1)) (= emul 2))
  1250.     (
  1251.         (set kind  (askchoice (prompt #w-ink)
  1252.             (help #w-ink-help)
  1253.             (choices #w-ink-choice1
  1254.                  #w-ink-choice2
  1255.             )
  1256.             (default 0)
  1257.         ))
  1258.     ))
  1259.     (set addmeter    1)
  1260.     (Meter)
  1261.     (set driverpath "")
  1262.     (set drivername "")
  1263.     (set prefpath "")
  1264.     (set prefname "")
  1265.     (set preffilename "")
  1266.     (set envname "")
  1267.     (set presetname "")
  1268.     (set setupname "")
  1269.     (set driversize 0)
  1270.     (set prefsize   0)
  1271.     (if (OR (= emul 0) (= emul 1))
  1272.     (  ; PinDriver
  1273.         (set driverpath "StudioDisk_1:drivers/")
  1274.         (set drivername "PinDriver")
  1275.         (set prefpath "StudioDisk_1:prefs/")
  1276.         (set prefname "PinPref")
  1277.         (set driversize 46700)   ; ~35980+6550+4096
  1278.         (set prefsize   74240)
  1279.         (set envname "PinPref")
  1280.         (set brand  (askchoice (prompt #w-driver)
  1281.             (help #w-driver-help)
  1282.             (choices "Epson 24 pin Emulation:    LQ, SQ, ..."     ;0
  1283.                 "Epson 48 pin Emulation:    SQ, BJC, ..."     ;1
  1284.                 "Epson Stylus"                                ;2
  1285.                 "Seikosha   (Epson):        SL230, ..."       ;3
  1286.                 "Star       (Epson):        SJ/LC/XB, ..."    ;4
  1287.                 "Oki        (Epson):        390,391, ..."     ;5
  1288.                 "Nec        (Epson/Nec)  :  P6, P6+, P60,..." ;6
  1289.                 "Fujitsu (DPL24C/DPL24C+):  DL1100, ..."      ;7
  1290.                 "Panasonic  (Epson 24pin):  KX-P, ..."        ;8
  1291.                 "Citizen    (Epson 24pin):  224, Swift24 ..." ;9
  1292.             )
  1293.             (default 0)
  1294.         ))
  1295.         (if (= kind 1) ; **** pin printer
  1296.         (
  1297.             (set presetname "StudioDisk_2:DriverPresets/Epson24pin")
  1298.         )
  1299.         (
  1300.             (set presetname "StudioDisk_2:DriverPresets/Epson24ink")
  1301.         ))
  1302.         (if (= brand 1)
  1303.         (  ; Epson 48 pin
  1304.             (if (= kind 1) ; **** pin printer
  1305.             (
  1306.                 (set presetname "StudioDisk_2:DriverPresets/Epson48pin")
  1307.             )
  1308.             (
  1309.                 (set presetname "StudioDisk_2:DriverPresets/Epson48ink")
  1310.             ))
  1311.         ))
  1312.         (if (= brand 2)
  1313.         (  ; Epson Stylus
  1314.             (set presetname "StudioDisk_2:DriverPresets/PinStylusInk")
  1315.         ))
  1316.         (if (= brand 3)
  1317.         (  ; Seikosha
  1318.             (if (= kind 1) ; **** pin printer
  1319.             (
  1320.                 (set presetname "StudioDisk_2:DriverPresets/SeikoshaPin")
  1321.             )
  1322.             (
  1323.                 (set presetname "StudioDisk_2:DriverPresets/SeikoshaInk")
  1324.             ))
  1325.         ))
  1326.         (if (= brand 4)
  1327.         (  ; Star
  1328.             (if (= kind 1) ; **** pin printer
  1329.             (
  1330.                 (set presetname "StudioDisk_2:DriverPresets/StarPin")
  1331.             )
  1332.             (
  1333.                 (set presetname "StudioDisk_2:DriverPresets/StarInk")
  1334.             ))
  1335.         ))
  1336.         (if (= brand 5)
  1337.         (  ; Oki
  1338.             (if (= kind 1) ; **** pin printer
  1339.             (
  1340.                 (set presetname "StudioDisk_2:DriverPresets/OkiPin")
  1341.             ))
  1342.         ))
  1343.         (if (= brand 6)
  1344.         (  ; Nec
  1345.             (if (= kind 1) ; **** pin printer
  1346.             (
  1347.                 (set presetname "StudioDisk_2:DriverPresets/NecPin")
  1348.             ))
  1349.         ))
  1350.         (if (= brand 7)
  1351.         (  ; Fujitsu
  1352.             (if (= kind 1) ; **** pin printer
  1353.             (
  1354.                 (set presetname "StudioDisk_2:DriverPresets/FujitsuPin")
  1355.             )
  1356.             (
  1357.                 (set presetname "StudioDisk_2:DriverPresets/FujitsuInk")
  1358.             ))
  1359.         ))
  1360.         (if (= brand 8)
  1361.         (  ; Panasonic
  1362.             (if (= kind 1) ; **** pin printer
  1363.             (
  1364.                 (set presetname "StudioDisk_2:DriverPresets/Pana24pin")
  1365.             ))
  1366.             (set setupname "StudioDisk_1:prefs/SetupKXP.pkd")
  1367.         ))
  1368.         (if (= brand 9)
  1369.         (  ; Citizen
  1370.             (if (= kind 1) ; **** pin printer
  1371.             (
  1372.                 (set presetname "StudioDisk_2:DriverPresets/CitizenPin")
  1373.             )
  1374.             (
  1375.                 (set presetname "StudioDisk_2:DriverPresets/CitizenInk")
  1376.             ))
  1377.         ))
  1378.     ))
  1379.     (set addmeter    1)
  1380.     (Meter)
  1381.     (if (= emul 2)
  1382.     (  ; Epson ESC/P2
  1383.         (set driverpath "StudioDisk_1:drivers/")
  1384.         (set drivername "EpsonP2")
  1385.         (set prefpath "StudioDisk_1:prefs/")
  1386.         (set prefname "EpsonP2Pref")
  1387.         (set driversize 43200)   ; ~32548+6544+4096
  1388.         (set prefsize   73500)
  1389.         (set envname "EpsonP2Pref")
  1390.  
  1391.         (set brand  (askchoice (prompt #w-driver)
  1392.             (help #w-driver-help)
  1393.             (choices "ESC/P2 compatible"    ;0
  1394.                 "Seikosha SL 96"        ;1
  1395.                 "Epson Stylus"          ;2
  1396.                 "Epson Stylus Color"    ;3
  1397.             )
  1398.             (default 0)
  1399.         ))
  1400.         (if (OR (= kind 1) (= brand 1))  ; **** pin printer or SL 96
  1401.         (
  1402.             (set presetname "StudioDisk_2:DriverPresets/p2pin")
  1403.             (message (#pin2note))
  1404.         ))
  1405.     ))
  1406.     (set addmeter    1)
  1407.     (Meter)
  1408.     (if (= emul 3)
  1409.     (  ; CanonBJ/BJC
  1410.         (set brand  (askchoice (prompt #w-driver)
  1411.             (help #w-driver-help)
  1412.             (choices "Brother HJ100"                     ; 0
  1413.                 "Canon BJ 5, 10, 10e, 10ex, 20"      ; 1
  1414.                 "Canon BJ 200, 200e, 230"            ; 2
  1415.                 "Canon BJ 300, 330"                  ; 3
  1416.                 "Canon BJC 600"                      ; 4
  1417.                 "Canon BJC 800, 820"                 ; 5
  1418.                 "Canon BJC 4000"                     ; 6
  1419.             )
  1420.             (default 0)
  1421.         ))
  1422.  
  1423.         (if (OR (= brand 0) (= brand 1))
  1424.         (  ; HJ 100 or BJ 5..10..20
  1425.             (set driverpath "StudioDisk_1:drivers/")
  1426.             (set drivername "CanonBJ5-230")
  1427.             (set prefpath "StudioDisk_1:prefs/")
  1428.             (set prefname "CanonBJ5-230Pref")
  1429.             (set driversize 29500)   ; ~23964+1406+4096
  1430.             (set prefsize   84500)   ; FontShop + CanonPref + icons
  1431.             (set envname "CanonBJ5-230Pref")
  1432.             (set presetname "StudioDisk_2:DriverPresets/CanonBJ10")
  1433.         ))
  1434.  
  1435.         (if (= brand 2)
  1436.         (  ; CanonBJ2x0
  1437.             (set driverpath "StudioDisk_1:drivers/")
  1438.             (set drivername "CanonBJ5-230")
  1439.             (set prefpath "StudioDisk_1:prefs/")
  1440.             (set prefname "CanonBJ5-230Pref")
  1441.             (set driversize 29500)   ; ~23964+1406+4096
  1442.             (set prefsize   84500)
  1443.             (set envname "CanonBJ5-230Pref")                 ; default preset
  1444.             (set presetname "StudioDisk_2:DriverPresets/CanonBJ200") ; usualy not installed... for future reasons...
  1445.         ))
  1446.  
  1447.         (if (= brand 3)
  1448.         (  ; CanonBJ300
  1449.             (set driverpath "StudioDisk_1:drivers/")
  1450.             (set drivername "CanonBJ300")
  1451.             (set prefpath "StudioDisk_1:prefs/")
  1452.             (set prefname "CanonBJ300Pref")
  1453.             (set driversize 25000)   ; ~19512+1366+4096
  1454.             (set prefsize   65500)
  1455.             (set envname "CanonBJ300Pref")
  1456.         ))
  1457.  
  1458.         (if (= brand 4)
  1459.         (  ; CanonBJC600
  1460.             (set driverpath "StudioDisk_1:drivers/")
  1461.             (set drivername "CanonBJEC")
  1462.             (set prefpath "StudioDisk_1:prefs/")
  1463.             (set prefname "CanonBJECPref")
  1464.             (set driversize 53650)   ; ~42980+6558+4096
  1465.             (set prefsize   74240)
  1466.             (set envname "CanonBJECPref")
  1467.             (set presetname "StudioDisk_2:DriverPresets/CanonBJC600")
  1468.         ))
  1469.  
  1470.         (if (= brand 5)
  1471.         (  ; CanonBJC800, 820
  1472.             (set driverpath "StudioDisk_1:drivers/")
  1473.             (set drivername "CanonBJEC")
  1474.             (set prefpath "StudioDisk_1:prefs/")
  1475.             (set prefname "CanonBJECPref")
  1476.             (set driversize 53650)   ; ~42980+6558+4096
  1477.             (set prefsize   81500)
  1478.             (set envname "CanonBJECPref")
  1479.             (set presetname "StudioDisk_2:DriverPresets/CanonBJC800")
  1480.         ))
  1481.  
  1482.         (if (= brand 6)
  1483.         (  ; CanonBJC4000
  1484.             (set driverpath "StudioDisk_1:drivers/")
  1485.             (set drivername "CanonBJEC")
  1486.             (set prefpath "StudioDisk_1:prefs/")
  1487.             (set prefname "CanonBJECPref")
  1488.             (set driversize 53650)   ; ~42980+6558+4096
  1489.             (set prefsize   81500)
  1490.             (set envname "CanonBJECPref")
  1491.             (set presetname "StudioDisk_2:DriverPresets/CanonBJC4000")
  1492.         ))
  1493.     ))
  1494.     (set addmeter    1)
  1495.     (Meter)
  1496.     (if (OR (= emul 4) (= emul 5))
  1497.     (
  1498.         (set driverpath "StudioDisk_1:drivers/")
  1499.         (set drivername "DeskDriver")
  1500.         (set prefpath "StudioDisk_1:prefs/")
  1501.         (set prefname "DeskPref")
  1502.         (set driversize 42500)   ; ~36680+5238+4096
  1503.         (set prefsize   99000)
  1504.         (set envname "DeskPref")
  1505.  
  1506.         (set brand  (askchoice (prompt #w-driver)
  1507.             (help #w-driver-help)
  1508.             (choices "HP Deskjet and compatible"       ;0
  1509.                 "HP Deskjet Plus, Portable"        ;1
  1510.                 "HP Deskjet 310, 500, 510, 520"    ;2
  1511.                 "HP Deskjet 500C and compatible"   ;3
  1512.                 "HP Deskjet 1200C and 1200PS"      ;4
  1513.                 "HP Paintjet 300XL"                ;5
  1514.                 "PCL 5C compat. and Color Laserjet" ;6
  1515.             )
  1516.             (default 0)
  1517.         ))
  1518.         (if (> brand 0)  ; DJ500C
  1519.         (
  1520.             (set presetname "StudioDisk_1:DriverPresets/dj500c")
  1521.         ))
  1522.         (if (= brand 4)  ; DJ 1200C
  1523.         (
  1524.             (set presetname "StudioDisk_2:DriverPresets/dj1200")
  1525.         ))
  1526.         (if (= brand 5)  ; PJ300XL
  1527.         (
  1528.             (set presetname "StudioDisk_2:DriverPresets/pj300xl")
  1529.         ))
  1530.         (if (= brand 6)  ; PCL 5C
  1531.         (
  1532.             (set presetname "StudioDisk_2:DriverPresets/dj1200")
  1533.         ))
  1534.     ))
  1535.     (set addmeter    1)
  1536.     (Meter)
  1537.     (if (= emul 6)
  1538.     (  ; Deskjet 550/560
  1539.         (set driverpath "StudioDisk_1:drivers/")
  1540.         (set drivername "DeskDriver4C")
  1541.         (set prefpath "StudioDisk_1:prefs/")
  1542.         (set prefname "DeskPref4C")
  1543.         (set driversize 53300)   ; ~41080+6562+4096
  1544.         (set prefsize   100000)
  1545.         (set envname "DeskPref4C")
  1546.  
  1547.         (set brand  (askchoice (prompt #w-driver)
  1548.             (help #w-driver-help)
  1549.             (choices "HP Deskjet 550C, 560C"            ;0
  1550.                 "HP Deskjet 1200C and 1200PS"       ;1
  1551.                 "HP Paintjet 300XL"                 ;2
  1552.             )
  1553.             (default 0)
  1554.         ))
  1555.         (if (= brand 1)  ; DJ 1200C
  1556.         (
  1557.             (set presetname "StudioDisk_2:DriverPresets/dj12004c")
  1558.         ))
  1559.         (if (= brand 2)  ; PJ300XL
  1560.         (
  1561.             (set presetname "StudioDisk_2:DriverPresets/pj300xl4c")
  1562.         ))
  1563.     ))
  1564.     (set addmeter    1)
  1565.     (Meter)
  1566.     (if (= emul 7)
  1567.     (  ; Laserjet
  1568.         (set driverpath "StudioDisk_1:drivers/")
  1569.         (set drivername "LaserDriver")
  1570.         (set prefpath "StudioDisk_1:prefs/")
  1571.         (set prefname "LaserPref")
  1572.         (set driversize 31800)   ; ~28420+1432+4096
  1573.         (set prefsize   95323)
  1574.         (set envname "LaserPref")
  1575.  
  1576.         (set brand  (askchoice (prompt #w-driver)
  1577.             (help #w-driver-laserhelp)
  1578.             (choices "HP 4, 4P, 4Plus, 4Si, 4V"                 ;0
  1579.                 "PCL 5e compatible"                         ;1
  1580.                 "HP IIIP, 4L, 4LM"                          ;2
  1581.                 "PCL 5 compatible, HP III, IIISI, IIID"     ;3
  1582.                 "Brother HL4Ve, Nec S62P, Ricoh LP1200"     ;4
  1583.                 "Oki 810, Seikosha OP108, Star LS 5"        ;5
  1584.                 "Star LS 4, LS5, LS 8, Seikosha OP104"      ;6
  1585.                 "HP IIP, Oki400e, Brother HL4V, HL8V, HL8D" ;7
  1586.                 "PCL 3 / PCL 4 / Laserjet II compatible"    ;8
  1587.                 "Nec S60P, Panasonic KX-P4455"              ;9
  1588.             )
  1589.             (default 7)
  1590.         ))
  1591.         (if (= brand 0)  ; PCL 5 + PJL + 600dpi + mode 5 compression
  1592.         (
  1593.             (set presetname "StudioDisk_2:DriverPresets/pcl5epjl")
  1594.             (set setupname "StudioDisk_1:prefs/SetupPJL.pkd")
  1595.         ))
  1596.         (if (= brand 1)  ; PCL 5 + 600dpi + mode 5 compression
  1597.         (
  1598.             (set presetname "StudioDisk_2:DriverPresets/pcl5e")
  1599.             (set setupname "StudioDisk_1:prefs/SetupPJL.pkd")
  1600.         ))
  1601.         (if (= brand 2)  ; PCL 5 + mode 5 compression
  1602.         (
  1603.             (set presetname "StudioDisk_2:DriverPresets/pcl5mode5")
  1604.         ))
  1605.         (if (= brand 3)  ; PCL 5
  1606.         (
  1607.             (set presetname "StudioDisk_2:DriverPresets/pcl5")
  1608.         ))
  1609.         (if (= brand 4)  ; PCL 5
  1610.         (
  1611.             (set presetname "StudioDisk_2:DriverPresets/pcl5")
  1612.         ))
  1613.         (if (= brand 5)  ; PCL 5
  1614.         (
  1615.             (set presetname "StudioDisk_2:DriverPresets/pcl5")
  1616.         ))
  1617.         (if (= brand 6)  ; HP IIP
  1618.         (
  1619.             (set presetname "StudioDisk_2:DriverPresets/hpiip")
  1620.         ))
  1621.         (if (= brand 7)  ; HP IIP
  1622.         (
  1623.             (set presetname "StudioDisk_2:DriverPresets/hpiip")
  1624.         ))
  1625.         (if (= brand 8)  ; HP II
  1626.         (
  1627.             (set presetname "StudioDisk_2:DriverPresets/hpii")
  1628.         ))
  1629.         (if (= brand 9)  ; HP II
  1630.         (
  1631.             (set presetname "StudioDisk_2:DriverPresets/hpii")
  1632.         ))
  1633.     ))
  1634.     (set addmeter    1)
  1635.     (Meter)
  1636.     ; find the devs:printers directory
  1637.     (set driverdrawer "PRINTERS:")
  1638.     (if (= (getassign "PRINTERS") "")
  1639.     (
  1640.         (set driverdrawer "Devs:Printers")
  1641.     ))
  1642.     (set addmeter    1)
  1643.     (Meter)
  1644.     (if (= @user-level 2)
  1645.     (
  1646.         (set driverdrawer (askdir (prompt #ask-sys)
  1647.             (help #ask-sys-help)
  1648.             (default driverdrawer))
  1649.         )
  1650.     ))
  1651.     (set addmeter    1)
  1652.     (Meter)
  1653.     (if (not (exists driverdrawer))
  1654.     (
  1655.         (set driverdrawer (askdir (prompt #ask-sys)
  1656.             (help #ask-sys-help)
  1657.             (default driverdrawer))
  1658.         )
  1659.     ))
  1660.     (set addmeter    1)
  1661.     (Meter)
  1662.     (set targetsize (getdiskspace driverdrawer))
  1663.      (if (< targetsize driversize)
  1664.     (
  1665.         (if (<> (getdevice driverdrawer) "RAM")
  1666.         (
  1667.             (message (#yellspace driversize (getdevice driverdrawer)))
  1668.             (set n 0)
  1669.             (set flag 0)
  1670.             (while (set thisfile (select n  #tdel0
  1671.                 #tdel1
  1672.                 #tdel2
  1673.                 #tdel3
  1674.                 #tdel4
  1675.                 #tdel5
  1676.                 #tdel6
  1677.                 #tdel7
  1678.                 #tdel8
  1679.                 #tdel9
  1680.                 #tdel10
  1681.                 #tdel11
  1682.                 #tdel12
  1683.                 #tdel13
  1684.                 #tdel14
  1685.                 #tdel15
  1686.                 #tdel16
  1687.                 "" ))
  1688.             (
  1689.                 (set thiscomment (select n  #del0
  1690.                     #del1
  1691.                     #del2
  1692.                     #del3
  1693.                     #del4
  1694.                     #del5
  1695.                     #del6
  1696.                     #del7
  1697.                     #del8
  1698.                     #del9
  1699.                     #del10
  1700.                     #del11
  1701.                     #del12
  1702.                     #del13
  1703.                     #del14
  1704.                     #del15
  1705.                     #del16
  1706.                     "" ))
  1707.                 (set n (+ n 1))
  1708.                 (set targetsize (getdiskspace driverdrawer))
  1709.                 (if (< targetsize driversize)
  1710.                 (
  1711.                     (set devthisfile (tackon (cat (getdevice driverdrawer) ":") thisfile))
  1712.                     (if (exists devthisfile)
  1713.                     (
  1714.                         (set flag 1)
  1715.                         (if (askbool (prompt (#full-delete devthisfile thiscomment))
  1716.                             (help (#full-delete-help ))
  1717.                             (choices #full-delete-1 #full-delete-2)
  1718.                             (default 1))
  1719.                         (
  1720.                             (protect devthisfile "+rwed")
  1721.                             (delete  devthisfile)
  1722.                             (protect (cat devthisfile ".info") "+rwed")
  1723.                             (delete (cat devthisfile ".info"))
  1724.                         ))
  1725.                     ))
  1726.                 ))
  1727.             ))
  1728.             (set targetsize (getdiskspace driverdrawer))
  1729.             (if (< targetsize driversize)
  1730.             (
  1731.                 (if (= flag 1)
  1732.                 (
  1733.                     (abort (#tofull (getdevice driverdrawer) driversize))
  1734.                 )
  1735.                 (
  1736.                     (abort (#tofull2 (getdevice driverdrawer) driversize))
  1737.                 ))
  1738.             ))
  1739.         ))
  1740.     ))
  1741.     (set addmeter    1)
  1742.     (Meter)
  1743.     (if (<> (exists "devs:printer.device") 1)
  1744.     (
  1745.         (message #nodevice)
  1746.     ))
  1747.     (if (<> (exists "devs:parallel.device") 1)
  1748.     (
  1749.         (message #nopardevice)
  1750.     ))
  1751.     (if (<> (exists "ENV:") 2)
  1752.     (
  1753.         (abort #noenv)
  1754.     ))
  1755.     (if (<> (exists "ENVARC:") 2)
  1756.     (
  1757.         (abort #noenvarc)
  1758.     ))
  1759.     (set addmeter    1)
  1760.     (Meter)
  1761.     ; **** find the sys:prefs directory
  1762.     (set prefdisk ("SYS:Prefs"))
  1763.     (if (> diskbased 0)
  1764.     (
  1765.         (set prefdisk (askdir (prompt (#ask-prefsdisk disknumber))
  1766.             (help #ask-prefs-help)
  1767.             (default "Studio_Prefs:"))
  1768.         )
  1769.         (set firstdisk prefdisk)
  1770.         (makeassign "STUDIOPARENT" firstdisk)
  1771.         (set prefdisk (tackon prefdisk "Prefs"))
  1772.         (if (<> (exists prefdisk) 2)
  1773.         (
  1774.             (makedir (prefdisk)
  1775.                 (infos)
  1776.             )
  1777.         ))
  1778.     )
  1779.     (
  1780.         (if (exists "sys:preferences")
  1781.         (
  1782.             (set prefdisk ("SYS:Preferences"))
  1783.         ))
  1784.         (if (exists "SYS:Prefs")
  1785.         (
  1786.             (set prefdisk ("SYS:Prefs"))
  1787.         ))
  1788.         (set prefdisk (askdir (prompt #ask-prefs)
  1789.             (help #ask-prefs-help)
  1790.             (default prefdisk))
  1791.         )
  1792.     ))
  1793.     (set addmeter    1)
  1794.     (Meter)
  1795.     (if (not (exists prefdisk))
  1796.     (
  1797.         (set prefdisk (askdir (prompt #ask-prefs)
  1798.             (help #ask-prefs-help)
  1799.             (default prefdisk))
  1800.         )
  1801.     ))
  1802.     (set addmeter    1)
  1803.     (Meter)
  1804.     (working #waitmsg)
  1805.     (makeassign "DRIVERPARENT" prefdisk)
  1806.     (set addmeter    1)
  1807.     (Meter)
  1808.     (set exerr (run (cat "RAM:lx x " driverpath drivername ".pkd \"" driverdrawer "\"")))
  1809.     (if (> exerr 0)
  1810.     (
  1811.         (abort (#abortunpack drivername))
  1812.     ))
  1813.     (set addmeter    1)
  1814.     (Meter)
  1815.     (set exerr (run (cat "RAM:lx x " prefpath prefname ".pkd \"DRIVERPARENT:\"")))
  1816.     (if (> exerr 0)
  1817.     (
  1818.         (abort (#abortunpack prefname))
  1819.     ))
  1820.     (set addmeter    1)
  1821.     (Meter)
  1822.     (if (<> setupname "")
  1823.     (
  1824.         (set exerr (run (cat "RAM:lx x " setupname " \"DRIVERPARENT:\"")))
  1825.         (if (> exerr 0)
  1826.         (
  1827.             (abort (#abortunpack setupname))
  1828.         ))
  1829.     ))
  1830.     (if (exists "ENV:")
  1831.     (
  1832.         (delete (cat "ENV:" envname))
  1833.     ))
  1834.     (if (exists "ENVARC:")
  1835.     (
  1836.         (delete (cat "ENVARC:" envname))
  1837.     ))
  1838.     (set addmeter    1)
  1839.     (Meter)
  1840.     (if (<> presetname "")
  1841.     (
  1842.         (askdisk (prompt (#mydisk 2))
  1843.             (help @askdisk-help)
  1844.             (dest "StudioDisk_2")
  1845.             ;(assigns)
  1846.         )
  1847.         (if (= (exists presetname) 1)
  1848.         (
  1849.             (copyfiles (source presetname)
  1850.                 (dest "ENV:")
  1851.                 (newname envname)
  1852.                 (nogauge)
  1853.             )
  1854.  
  1855.         )
  1856.         (
  1857.             (set presetname (cat presetname ".pkd"))
  1858.             (if (= (exists presetname) 1)
  1859.             (
  1860.                 (set exerr (run (cat "RAM:lx x " presetname " ENV:")))
  1861.                 (if (> exerr 0)
  1862.                 (
  1863.                     (abort (#abortunpack presetname))
  1864.                 ))
  1865.             ))
  1866.         ))
  1867.         (if (= (exists (cat "ENV:" envname)) 1)
  1868.         (
  1869.             (if (exists "ENVARC:")
  1870.             (
  1871.                 (copyfiles (source (cat "ENV:" envname))
  1872.                     (dest "ENVARC:")
  1873.                     (newname envname)
  1874.                     (nogauge)
  1875.                 )
  1876.             ))
  1877.         ))
  1878.     ))
  1879.     (set addmeter    1)
  1880.     (Meter)
  1881. ))
  1882. (if (IN studio 2)  ; Studio Application Prgm.
  1883. (
  1884.     (set addmeter    1)
  1885.     (Meter)
  1886.     (if (> diskbased 0)
  1887.     (
  1888.         (if (= firstdisk "")
  1889.         (
  1890.             (set firstdisk (askdir (prompt (#ask-studiodisk disknumber))
  1891.                 (default "Studio_Prefs:")
  1892.                 (help #ask-studio-help))
  1893.             )
  1894.             (makeassign "STUDIOPARENT" firstdisk)
  1895.         ))
  1896.         (set exerr (run (cat "RAM:lx x StudioDisk_2:Studio/Scan.pkd \"STUDIOPARENT:\"")))
  1897.         (if (> exerr 0)
  1898.         (
  1899.             (abort (#abortunpack "Scan.pkd"))
  1900.         ))
  1901.         (rename "STUDIOPARENT:Studio" "STUDIOPARENT:Studio_Tools")
  1902.         (rename "STUDIOPARENT:Studio.info" "STUDIOPARENT:Studio_Tools.info")
  1903.     ))
  1904.     (set disknumber (+ disknumber 1))
  1905.     (if (> diskbased 0)
  1906.     (
  1907.         (set target (askdir (prompt (#ask-studiodisk disknumber))
  1908.             (default "Studio_Print:")
  1909.             (help #ask-studio-help))
  1910.         )
  1911.     )
  1912.     (
  1913.         (set guessdrawer (getassign "WORK" "d"))
  1914.         (if (= guessdrawer "")
  1915.         (
  1916.             (set guessdrawer (getassign "DH0" "d"))
  1917.             (if (= guessdrawer "")
  1918.             (
  1919.                 (set guessdrawer (getassign "DH2" "d"))
  1920.                 (if (= guessdrawer "")
  1921.                 (
  1922.                     (set guessdrawer "SYS:")
  1923.                 ))
  1924.             ))
  1925.         ))
  1926.         (set target (askdir (prompt #ask-studio)
  1927.             (help #ask-studio-help)
  1928.             (default guessdrawer))
  1929.         )
  1930.     ))
  1931.     (set addmeter    1)
  1932.     (Meter)
  1933.     (set @default-dest target)
  1934.     (working #waitmsg)
  1935.     (set targetsize (getdiskspace target))
  1936.     (if (< targetsize 700000)
  1937.     (
  1938.         (if (<> (getdevice target) "RAM")
  1939.         (
  1940.             (abort (#tofullstudio (getdevice target) 700000))
  1941.         ))
  1942.     ))
  1943.     (set addmeter    1)
  1944.     (Meter)
  1945.     (makeassign "STUDIOPARENT" target)
  1946.     (set target (tackon target "Studio"))
  1947.     (askdisk (prompt (#mydisk 2))
  1948.         (help @askdisk-help)
  1949.         (dest "StudioDisk_2")
  1950.         ;(assigns)
  1951.     )
  1952.     (working #waitmsg)
  1953.     (set exerr (run (cat "RAM:lx x StudioDisk_2:Studio/Studio.pkd \"STUDIOPARENT:\"")))
  1954.     (if (> exerr 0)
  1955.     (
  1956.         (abort (#abortunpack "Studio.pkd"))
  1957.     ))
  1958.     (set addmeter    20)
  1959.     (Meter)
  1960.     (if (= diskbased 0)
  1961.     (
  1962.         (set exerr (run (cat "RAM:lx x StudioDisk_2:Studio/Scan.pkd \"STUDIOPARENT:\"")))
  1963.         (if (> exerr 0)
  1964.         (
  1965.             (abort (#abortunpack "Scan.pkd"))
  1966.         ))
  1967.     ))
  1968.     (if (NOT (IN studio 1))
  1969.     (
  1970.         (if (<> (exists "ENV:") 2)
  1971.         (
  1972.             (message #noenv)
  1973.             (message #noserver)
  1974.         )
  1975.         (
  1976.             (textfile   (dest "Env:StudioPath")
  1977.                 (append (cat "\"" (tackon target "Studio") "\"")) )
  1978.         ))
  1979.         (if (<> (exists "ENVARC:") 2)
  1980.         (
  1981.             (message #noenvarc)
  1982.             (message #noserver)
  1983.         )
  1984.         (
  1985.             (textfile   (dest "ENVARC:StudioPath")
  1986.                 (append (cat "\"" (tackon target "Studio") "\"")) )
  1987.         ))
  1988.     ))
  1989.     (set disknumber (+ disknumber 1))
  1990.     (set addmeter    7)
  1991.     (Meter)
  1992. ))
  1993. (set outputdefault (if (> diskbased 0) %0 %1111111111))
  1994. (set profiledefault (if (> diskbased 0) %0 %1111111111))
  1995. (if (IN studio 5) ; Studio Preset
  1996. (
  1997.     (set addmeter    1)
  1998.     (Meter)
  1999.     (if (not (IN studio 2))  ; Studio Application Prgm.
  2000.     (
  2001.         (set guessdrawer (getassign "WORK" "d"))
  2002.         (if (= guessdrawer "")
  2003.         (
  2004.             (set guessdrawer (getassign "DH0" "d"))
  2005.             (if (= guessdrawer "")
  2006.             (
  2007.                 (set guessdrawer (getassign "DH2" "d"))
  2008.                 (if (= guessdrawer "")
  2009.                 (
  2010.                     (set guessdrawer "SYS:")
  2011.                 ))
  2012.             ))
  2013.         ))
  2014.         (set target (askdir (prompt #ask-studiomod)
  2015.             (help #ask-studiomod-help)
  2016.             (default guessdrawer))
  2017.         )
  2018.         (if (<> (exists (tackon target "Studio_Prefs")) 2)
  2019.         (
  2020.             (abort (#nostudioprefs target))
  2021.         ))
  2022.         (makeassign "STUDIOMOD" (tackon target "Studio_Prefs"))
  2023.     ))
  2024.     (set addmeter    1)
  2025.     (Meter)
  2026.     (makeassign "STUDIOMOD" (tackon target "Studio_Prefs"))
  2027.     (set spreset  (askfile (prompt #w-preset)
  2028.         (help #w-preset-help)
  2029.         (default "StudioDisk_2:StudioPresets")
  2030.     ))
  2031.     (set addmeter    1)
  2032.     (Meter)
  2033.     (copyfiles (source spreset)
  2034.         (dest "T:")
  2035.         (newname "DefaultSettings")
  2036.         (nogauge)
  2037.     )
  2038.     (copyfiles (source "t:DefaultSettings")
  2039.         (dest "STUDIOMOD:")
  2040.         (nogauge)
  2041.     )
  2042.     (if (exists "STUDIOMOD:Studio.prefs")
  2043.     (
  2044.         (delete "STUDIOMOD:Studio.prefs")
  2045.     ))
  2046.     (set addmeter    1)
  2047.     (Meter)
  2048.     (set presetname (fileonly spreset))
  2049.     (if (= presetname "CanonBJ200.prefs")
  2050.     (
  2051.         (set outputdefault %10)
  2052.         (set profiledefault %1)
  2053.     ))
  2054.     (if (= presetname "CanonBJ230.prefs")
  2055.     (
  2056.         (set outputdefault %100)
  2057.         (set profiledefault %1)
  2058.     ))
  2059.     (if (= presetname "CanonBJ5_10_20.prefs")
  2060.     (
  2061.         (set outputdefault %1)
  2062.         (set profiledefault %1)
  2063.     ))
  2064.     (if (= presetname "CanonBJC4000.prefs")
  2065.     (
  2066.         (set outputdefault %100000)
  2067.         (set profiledefault %1000)
  2068.     ))
  2069.     (if (= presetname "CanonBJC800.prefs")
  2070.     (
  2071.         (set outputdefault %10000)
  2072.         (set profiledefault %100)
  2073.     ))
  2074.     (if (= presetname "CanonBJC600.prefs")
  2075.     (
  2076.         (set outputdefault %1000)
  2077.         (set profiledefault %10)
  2078.     ))
  2079.     (if (= presetname "StylusColor.prefs")
  2080.     (
  2081.         (set outputdefault %100000)
  2082.         (set profiledefault %10000)
  2083.     ))
  2084.     (if (= presetname "Stylus.prefs")
  2085.     (
  2086.         (set outputdefault %1000000)
  2087.         (set profiledefault %10000)
  2088.     ))
  2089.     (if (= presetname "24PinPrinter.prefs")
  2090.     (
  2091.         (set outputdefault %1)
  2092.         (set profiledefault %100000000)
  2093.     ))
  2094.     (if (= presetname "Deskjet_300_500_Port.prefs")
  2095.     (
  2096.         (set outputdefault %1)
  2097.         (set profiledefault %1000000)
  2098.     ))
  2099.     (if (= presetname "Deskjet_550C_560C.prefs")
  2100.     (
  2101.         (set outputdefault %1)
  2102.         (set profiledefault %10000000)
  2103.     ))
  2104.     (if (= presetname "Laser_Printer_300dpi.prefs")
  2105.     (
  2106.         (set outputdefault %1)
  2107.         (set profiledefault %100000)
  2108.     ))
  2109.     (if (= presetname "Laser_Printer_600dpi.prefs")
  2110.     (
  2111.         (set outputdefault %1)
  2112.         (set profiledefault %100000)
  2113.     ))
  2114.     (if (= presetname "Laserjet_4L_300dpi.prefs")
  2115.     (
  2116.         (set outputdefault %1)
  2117.         (set profiledefault %100000)
  2118.     ))
  2119.     (if (= presetname "Fargo_Primera.prefs")
  2120.     (
  2121.         (set outputdefault %100000000)
  2122.         (set profiledefault %0)
  2123.     ))
  2124. ))
  2125. (if (IN studio 3) ; Output module
  2126. (
  2127.     (set addmeter    1)
  2128.     (Meter)
  2129.     (if (not (OR (IN studio 2) (IN studio 5)))  ; Studio Application Prgm.
  2130.     (
  2131.         (set guessdrawer (getassign "WORK" "d"))
  2132.         (if (= guessdrawer "")
  2133.         (
  2134.             (set guessdrawer (getassign "DH0" "d"))
  2135.             (if (= guessdrawer "")
  2136.             (
  2137.                 (set guessdrawer (getassign "DH2" "d"))
  2138.                 (if (= guessdrawer "")
  2139.                 (
  2140.                     (set guessdrawer "SYS:")
  2141.                 ))
  2142.             ))
  2143.         ))
  2144.         (set target (askdir (prompt #ask-studiomod)
  2145.             (help #ask-studiomod-help)
  2146.             (default guessdrawer))
  2147.         )
  2148.         (if (<> (exists (tackon target "Studio_Output")) 2)
  2149.         (
  2150.             (abort (#nostudio target))
  2151.         ))
  2152.         (makeassign "STUDIOMOD" (tackon target "Studio_Output"))
  2153.     ))
  2154.     (makeassign "STUDIOMOD" (tackon target "Studio_Output"))
  2155.     (set addmeter    1)
  2156.     (Meter)
  2157.     (if (> diskbased 0)
  2158.     (
  2159.         (message #nomore)
  2160.     ))
  2161.     (set addmeter    1)
  2162.     (Meter)
  2163.     (set module  (askoptions (prompt #w-output)
  2164.         (help #w-output-help)
  2165.         (choices "Workbench printer driver"   ;0
  2166.             "Canon BJ  200, 200e"         ;1
  2167.             "Canon BJ  230"               ;2
  2168.             "Canon BJC 600"               ;3
  2169.             "Canon BJC 800, 820"          ;4
  2170.             "Canon BJC 4000"              ;5
  2171.             "Epson ESC/P2 and Stylus"     ;6
  2172.             "IFF ILBM picture"            ;7
  2173. ;            "Fargo Primera (Dye Sub)"     ;8
  2174.         )
  2175.         (default outputdefault)
  2176.     ))
  2177.     (set addmeter    1)
  2178.     (Meter)
  2179.     (working #waitmsg)
  2180.     (set n 0)
  2181.     (while (set insmod (select n  "Workbench"
  2182.         "CanonBJ200"
  2183.         "CanonBJ230"
  2184.         "CanonBJC600"
  2185.         "CanonBJC800"
  2186.         "CanonBJC4000"
  2187.         "Epson_ESC-P2"
  2188.         "IFF_ILBM"
  2189.         "Fargo_Primera"
  2190.         "" ))
  2191.     (
  2192.         (set modsize (select n  16000
  2193.             30000
  2194.             30000
  2195.             30000
  2196.             30000
  2197.             30000
  2198.             30000
  2199.             33000
  2200.             40000
  2201.             "" ))
  2202.         (set targetsize (getdiskspace "STUDIOMOD:"))
  2203.         (if (AND (< targetsize modsize) (<> (getdevice "STUDIOMOD:") "RAM"))
  2204.         (
  2205.             (message (#tofullmodule (getdevice "STUDIOMOD:") insmod modsize))
  2206.             (working #waitmsg)
  2207.         )
  2208.         (
  2209.             (if (IN module n)
  2210.             (
  2211.                 (askdisk (prompt (#mydisk 2))
  2212.                     (help @askdisk-help)
  2213.                     (dest "StudioDisk_2")
  2214.                     ;(assigns)
  2215.                 )
  2216.                 (working #waitmsg)
  2217.                 (set exerr (run (cat "RAM:lx x \"StudioDisk_2:Output/" insmod ".pkd\" \"STUDIOMOD:\"")))
  2218.                 (if (> exerr 0)
  2219.                 (
  2220.                     (abort (#abortunpack insmod))
  2221.                 ))
  2222.             ))
  2223.         ))
  2224.         (set n (+ n 1))
  2225.     ))
  2226.     (set addmeter    6)
  2227.     (Meter)
  2228. ))
  2229.  
  2230. (if (IN studio 4) ; Printer Profile
  2231. (
  2232.     (set addmeter    1)
  2233.     (Meter)
  2234.     (if (not (OR (OR (IN studio 2) (IN studio 3)) (IN studio 5)))
  2235.     (
  2236.         (set guessdrawer (getassign "WORK" "d"))
  2237.         (if (= guessdrawer "")
  2238.         (
  2239.             (set guessdrawer (getassign "DH0" "d"))
  2240.             (if (= guessdrawer "")
  2241.             (
  2242.                 (set guessdrawer (getassign "DH2" "d"))
  2243.                 (if (= guessdrawer "")
  2244.                 (
  2245.                     (set guessdrawer "SYS:")
  2246.                 ))
  2247.             ))
  2248.         ))
  2249.         (set target (askdir (prompt #ask-studiomod)
  2250.             (help #ask-studiomod-help)
  2251.             (default guessdrawer))
  2252.         )
  2253.         (if (<> (exists (tackon target "Studio_Profiles")) 2)
  2254.         (
  2255.             (abort (#nostudiopro target))
  2256.         ))
  2257.     ))
  2258.     (makeassign "STUDIOMOD" (tackon target "Studio_Profiles"))
  2259.     (set addmeter    1)
  2260.     (Meter)
  2261.     (if (> diskbased 0)
  2262.     (
  2263.         (message #nomorepro)
  2264.     ))
  2265.     (set addmeter    1)
  2266.     (Meter)
  2267.     (set profiles  (askoptions (prompt #w-profile)
  2268.         (help #w-profile-help)
  2269.         (choices "Canon BJ"                   ;0
  2270.             "Canon BJC 600"               ;1
  2271.             "Canon BJC 800"               ;2
  2272.             "Canon BJC 4000"              ;3
  2273.             "Stylus/Stylus Color"         ;4
  2274.             "HP Laserjet"                 ;5
  2275.             "Deskjet 3x0, 500, 510"       ;6
  2276.             "Deskjet 550C, 560C"          ;7
  2277.             "24 Pin Printer"              ;8
  2278.         )
  2279.         (default profiledefault)
  2280.     ))
  2281.     (set addmeter    1)
  2282.     (Meter)
  2283.     (working #waitmsg)
  2284.     (set n 0)
  2285.     (while (set inspro (select n  "StudioDisk_3:Profiles/Canon_BJ"    ;0
  2286.         "StudioDisk_3:Profiles/CanonBJC600"            ;1
  2287.         "StudioDisk_3:Profiles/CanonBJC800"            ;2
  2288.         "StudioDisk_3:Profiles/CanonBJC4000"            ;3
  2289.         "StudioDisk_3:Profiles/Stylus"                ;4
  2290.         "StudioDisk_3:Profiles/Laserjet"            ;5
  2291.         "StudioDisk_3:Profiles/Deskjet_5x0"            ;6
  2292.         "StudioDisk_3:Profiles/Deskjet_560"            ;7
  2293.         "StudioDisk_3:Profiles/Pin24Printer"                    ;8
  2294.         "" ))
  2295.     (
  2296.         (set prosize (select n  45000    ;0
  2297.             140000            ;1
  2298.             175000            ;2
  2299.             155000            ;3
  2300.             145000            ;4
  2301.             30000            ;5
  2302.             157000            ;6
  2303.             157000            ;7
  2304.             17500            ;8
  2305.             "" ))
  2306.         (set targetsize (getdiskspace "STUDIOMOD:"))
  2307.         (if (AND (< targetsize prosize) (<> (getdevice "STUDIOMOD:") "RAM"))
  2308.         (
  2309.             (set insproname (select n  "Canon BJ"    ;0
  2310.                 "Canon BJC 600"            ;1
  2311.                 "Canon BJC 800"            ;2
  2312.                 "Canon BJC 4000"        ;3
  2313.                 "Stylus/Stylus Color"        ;4
  2314.                 "Laserjet Family"        ;5
  2315.                 "Deskjet 3x0, 500, 510"        ;6
  2316.                 "Deskjet 550, 560"        ;7
  2317.                 "24 Pin Printer"        ;8
  2318.                 "" ))
  2319.             (message (#tofullprofile (getdevice "STUDIOMOD:") insproname prosize))
  2320.             (working #waitmsg)
  2321.         )
  2322.         (
  2323.             (if (IN profiles n)
  2324.             (
  2325.                 (askdisk (prompt (#mydisk 2))
  2326.                     (help @askdisk-help)
  2327.                     (dest "StudioDisk_2")
  2328.                     ;(assigns)
  2329.                 )
  2330.                 (working #waitmsg)
  2331.                 (set exerr (run (cat "RAM:lx x " inspro ".pkd \"STUDIOMOD:\"")))
  2332.                 (if (> exerr 0)
  2333.                 (
  2334.                     (abort (#abortunpack inspro))
  2335.                 ))
  2336.             ))
  2337.         ))
  2338.         (set n (+ n 1))
  2339.     ))
  2340.     (set addmeter    6)
  2341.     (Meter)
  2342. ))
  2343. (if (IN studio 1)
  2344. (
  2345.     (set addmeter    1)
  2346.     (Meter)
  2347.     (message (#finalmsg drivername (tackon prefdisk prefname)))
  2348.     (if (exists "sys:prefs/printer")
  2349.     (
  2350.         (run "sys:prefs/printer")
  2351.     )
  2352.     (
  2353.         (if (exists "sys:prefs/preferences")
  2354.         (
  2355.             (run "sys:prefs/preferences")
  2356.         ))
  2357.     ))
  2358.     (set addmeter    1)
  2359.     (Meter)
  2360.     (run "RAM:check")
  2361.     (delete "RAM:check")
  2362.     (if (not (exists "RAM:StudioTemp"))
  2363.     (
  2364.         (message #wrongdither)
  2365.         (if (exists "sys:prefs/printergfx")
  2366.         (
  2367.             (run "sys:prefs/printergfx")
  2368.         ))
  2369.     )
  2370.     ( ; else
  2371.         (delete "RAM:StudioTemp")
  2372.     ))
  2373.     (set addmeter    1)
  2374.     (Meter)
  2375.     (run (cat "\""
  2376.         (tackon prefdisk prefname)
  2377.         "\""))
  2378.     (set addmeter    1)
  2379.     (Meter)
  2380. ))
  2381. (if (> studio 0)
  2382. (
  2383.     (run "RAM:lx n")
  2384.     (delete "RAM:lx")
  2385.     (delete "RAM:check")
  2386. ))
  2387. (complete 100)
  2388.